From 21d88580ee4a5ee6e36ccc43b313b0a15e9bace8 Mon Sep 17 00:00:00 2001 From: wes Date: Sat, 7 Apr 2012 16:34:57 -0400 Subject: [PATCH] removed spurious $ --- questioner.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/questioner.hs b/questioner.hs index 9b5d3c3..f9f8139 100644 --- a/questioner.hs +++ b/questioner.hs @@ -22,5 +22,5 @@ main = do let isCorrect = (correct (getjust answer) q) printf "%s is %s\n\n" (getjust answer) (show isCorrect) case isCorrect of - (True) -> return $ (t+1, a+1) + (True) -> return (t+1, a+1) (False) -> return (t+1, a) \ No newline at end of file