different workaround for #270 is explicit eta expansion

Frege · Apr 18, 2016 · a29b584 · a29b584
1 parent 35fce77
commit a29b584
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/tests/comp/Issue270.fr b/tests/comp/Issue270.fr
@@ -29,7 +29,7 @@ module tests.comp.Issue270 where
 
 makeTokenParser :: LanguageDef st -> TokenParser st
 makeTokenParser languageDef
-    = TokenParser{ lexeme = lexeme (), 
+    = TokenParser{ lexeme = \p → lexeme p, 
                    whiteSpace = whiteSpace, 
                    natural = natural,
                    integer = integer, }
@@ -42,13 +42,13 @@ makeTokenParser languageDef
           noLine   = null []
           noMulti  = null (languageDef.commentStart)
 
-    integer = lexeme () int
-    natural = lexeme () nat
+    integer = lexeme  int
+    natural = lexeme  nat
     int = undefined
     nat = undefined
 
-    lexeme :: forall a st'. () -> CharParser st' a -> CharParser st' a
-    lexeme () p = do { x <- p; whiteSpace; return x }
+    lexeme :: forall a st'. CharParser st' a -> CharParser st' a
+    lexeme  p = do { x <- p; whiteSpace; return x }