X-Git-Url: https://ruin.nu/git/?p=proglang.git;a=blobdiff_plain;f=Interpret.hs;h=62cc7fd9d5f839978692359779b16ecc9c465e92;hp=a674d1e509f04a2aa0ebb0d91c78300f453d6ead;hb=1003c4028c1f1ea1dc280fa2843ee2b3202f3148;hpb=89a4c9c8d8cb07f4fb749316fa20534708073b62

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)