From 8cc5261c5ad2fe710676bbf5cfbf7a031cf35f21 Mon Sep 17 00:00:00 2001 From: nisstyre56 Date: Sat, 7 Apr 2012 17:08:11 -0300 Subject: [PATCH] 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..])