small fix

diff --git a/Interpret.hs b/Interpret.hs
index a674d1e509f04a2aa0ebb0d91c78300f453d6ead..62cc7fd9d5f839978692359779b16ecc9c465e92 100644 (file)
--- 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)