From a29b58448f0bc20b67893f9cd8d1e5cc5846aa30 Mon Sep 17 00:00:00 2001
From: Ingo Wechsung <ingo.wechsung@gmail.com>
Date: Mon, 18 Apr 2016 20:29:36 +0200
Subject: [PATCH] different workaround for #270 is  explicit eta expansion

---
 tests/comp/Issue270.fr | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/tests/comp/Issue270.fr b/tests/comp/Issue270.fr
index ebe95d93..0b06921f 100644
--- 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 }