From a71fcec885a13bd525da568caa8a4102ff98b1a3 Mon Sep 17 00:00:00 2001 From: nisstyre56 Date: Sat, 7 Apr 2012 17:06:40 -0300 Subject: [PATCH 1/2] 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 From 8cc5261c5ad2fe710676bbf5cfbf7a031cf35f21 Mon Sep 17 00:00:00 2001 From: nisstyre56 Date: Sat, 7 Apr 2012 17:08:11 -0300 Subject: [PATCH 2/2] Update Ask.hs --- Ask.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ask.hs b/Ask.hs index 7c5c57b..3008f34 100644 --- a/Ask.hs +++ b/Ask.hs @@ -7,8 +7,8 @@ import Data.List.Split import Text.JSON data Question = Question {text :: String , - possibleAnswers :: [String], - correctAnswer :: String} + possibleAnswers :: [String], + correctAnswer :: String} letters = join $ zipWith (\l n -> (replicate n) <$> l) (repeat ['a'..'z']) ([1, 2..])