From a71fcec885a13bd525da568caa8a4102ff98b1a3 Mon Sep 17 00:00:00 2001 From: nisstyre56 Date: Sat, 7 Apr 2012 17:06:40 -0300 Subject: [PATCH] Update tell.hs --- tell.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tell.hs b/tell.hs index 8a0be61..e51dcc8 100644 --- a/tell.hs +++ b/tell.hs @@ -11,7 +11,7 @@ questionPath = "./questions.json" check = (readline "> ") >>= output where output (Nothing) = return Nothing output (Just a) | a == "END" = return Nothing - | otherwise = return (Just a) + | otherwise = return (Just a) getQuestions = whileJust check return getQuestionFile = So.readFile questionPath