Fixed build failure on recent GHC and other libraries

[Lucu.git] / Network / HTTP / Lucu / Parser.hs

diff --git a/Network/HTTP/Lucu/Parser.hs b/Network/HTTP/Lucu/Parser.hs
index 9a36ad5d83978048d3414b26090146db576a9562..34953f58c9dc5de637759c671f672b02815aa59e 100644 (file)
--- a/Network/HTTP/Lucu/Parser.hs
+++ b/Network/HTTP/Lucu/Parser.hs
@@ -52,7 +52,7 @@ module Network.HTTP.Lucu.Parser
     )
     where
 
-import           Control.Monad.State.Strict
+import           Control.Monad.State.Strict hiding (state)
 import qualified Data.ByteString.Lazy as Lazy (ByteString)
 import qualified Data.ByteString.Lazy.Char8 as B hiding (ByteString)
 import qualified Data.Foldable as Fold
@@ -93,6 +93,9 @@ instance Monad Parser where
     return !x = Parser $! return $! Success x
     fail _    = Parser $! return $! IllegalInput
 
+instance Functor Parser where
+    fmap f p = p >>= return . f
+
 -- |@'failP'@ is just a synonym for @'Prelude.fail'
 -- 'Prelude.undefined'@.
 failP :: Parser a