X-Git-Url: http://git.tomasm.cz/fp.git/blobdiff_plain/79ff57615dcea00a035f125f8d8d77d5d128de5f..763aa13445f67ffe289fe6f3186dd269a909d8a5:/src/Lambda/Parser/Fancy.hs?ds=inline

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