diff --git a/attoparsec-trans.cabal b/attoparsec-trans.cabal
--- a/attoparsec-trans.cabal
+++ b/attoparsec-trans.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                attoparsec-trans
-version:             0.1.0.2
+version:             0.1.0.3
 synopsis:            Interleaved effects for attoparsec parsers
 -- description:         
 homepage:            https://github.com/srijs/haskell-attoparsec-trans
diff --git a/src/Control/Monad/Trans/Parser.hs b/src/Control/Monad/Trans/Parser.hs
--- a/src/Control/Monad/Trans/Parser.hs
+++ b/src/Control/Monad/Trans/Parser.hs
@@ -62,6 +62,7 @@
       rec f (FailM i s)  = return (FailM i s)
       rec f (DoneM i r)  = runParserT (f r) i
       rec f (PartialM p) = return . PartialM $ p >>= f
+  fail s = ParserT $ \i -> return $ FailM i s
 
 instance MonadTrans (ParserT i) where
   lift mr = ParserT $ \i -> mr >>= return . DoneM i