From 1003c4028c1f1ea1dc280fa2843ee2b3202f3148 Mon Sep 17 00:00:00 2001 From: Michael Andreen Date: Wed, 15 Mar 2006 18:45:03 +0000 Subject: [PATCH] small fix --- Interpret.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Interpret.hs b/Interpret.hs index a674d1e..62cc7fd 100644 --- a/Interpret.hs +++ b/Interpret.hs @@ -72,7 +72,7 @@ eval (EFunc i as) = do getNumber :: IO String getNumber = do c <- getChar - if elem c ['-','0'..'9'] + if elem c $ '-':['0'..'9'] then do l <- getNumber2 return (c:l) -- 2.39.2