From c8b7ebc163d6331b40d06090df00aff633028a81 Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Wed, 6 Apr 2016 13:46:48 +0000
Subject: [PATCH] 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...
---
 src/compiler/GF/Grammar/Lexer.x | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/compiler/GF/Grammar/Lexer.x b/src/compiler/GF/Grammar/Lexer.x
index c579b5609..c236b77fa 100644
--- 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