Lexer.x: fix cyclic Functor instance

It looks like I introduced this cyclic definition in August 2014, but since it isn't used, it hasn't been a problem...
2016-04-06 13:46:48 +00:00
parent bd8c96efb3
commit c4ea470eb1
1 changed files with 1 additions and 1 deletions
--- a/src/compiler/GF/Grammar/Lexer.x
+++ b/src/compiler/GF/Grammar/Lexer.x
@@ -268,7 +268,7 @@ data ParseResult a
 newtype P a = P { unP :: AlexInput -> ParseResult a }

 instance Functor P where
-  fmap = (<$>)
+  fmap = liftA

 instance Applicative P where
  pure = return