X-Git-Url: http://git.tomasm.cz/fp.git/blobdiff_plain/880eb9d73e5ea9239698d8f6d294032b6e339310..763aa13445f67ffe289fe6f3186dd269a909d8a5:/src/Lambda/Parser/Fancy.hs?ds=sidebyside

diff --git a/src/Lambda/Parser/Fancy.hs b/src/Lambda/Parser/Fancy.hs
index 3ad5728..f7a523d 100644
--- a/src/Lambda/Parser/Fancy.hs
+++ b/src/Lambda/Parser/Fancy.hs
@@ -57,7 +57,7 @@ tRead s = case parseOnly (parseTerm <* endOfInput) (T.pack s) of
 
 parseVar :: Parser Term
 parseVar = do
-  x <- many1 $ satisfy isAsciiLower
+  x <- many1 letter
   return $! Var x
 
 parseLambda :: Parser Term