X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FParser.hs;fp=Network%2FHTTP%2FLucu%2FParser.hs;h=d08a145f5bc47b1de9fbde9d3e1944000d75c617;hb=f62b6f07bbf1eefcf552163d8f7daa6e0862ed5d;hp=9a36ad5d83978048d3414b26090146db576a9562;hpb=b0efa668bb881d1c9db4b852b1b9063a2db12b3d;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Parser.hs b/Network/HTTP/Lucu/Parser.hs
index 9a36ad5..d08a145 100644
--- a/Network/HTTP/Lucu/Parser.hs
+++ b/Network/HTTP/Lucu/Parser.hs
@@ -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