diff --git a/Text/Appar/Parser.hs b/Text/Appar/Parser.hs
--- a/Text/Appar/Parser.hs
+++ b/Text/Appar/Parser.hs
@@ -55,7 +55,7 @@
 
 import Control.Applicative
 import Control.Monad
-import Control.Monad.Fail
+import Control.Monad.Fail as Fail
 import Data.Char
 import Text.Appar.Input
 
@@ -84,6 +84,8 @@
     p >>= f  = P $ \bs -> case runParser p bs of
         (Nothing, bs') -> (Nothing, bs')
         (Just a,  bs') -> runParser (f a) bs'
+    -- fixme: GHC 8.x will remove the fail method
+    fail = Fail.fail
 
 instance MonadFail (MkParser inp) where
     fail _   = P $ \bs -> (Nothing, bs)
diff --git a/appar.cabal b/appar.cabal
--- a/appar.cabal
+++ b/appar.cabal
@@ -1,5 +1,5 @@
 Name:                   appar
-Version:                0.1.5
+Version:                0.1.6
 Author:                 Kazu Yamamoto <kazu@iij.ad.jp>
 Maintainer:             Kazu Yamamoto <kazu@iij.ad.jp>
 License:                BSD3