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..])
 
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