From dfc628d0906f17ce958de38733f3421a3f3a8e14 Mon Sep 17 00:00:00 2001
From: Joscha <brummer@migejolise.de>
Date: Thu, 20 Sep 2018 19:07:16 +0000
Subject: [PATCH] Clean up

---
 app/Main.hs  |  2 +-
 src/Jotto.hs | 10 +++++-----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index af03c2f..bf37463 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -1,8 +1,8 @@
 module Main where
 
 import           Control.Monad
-import           Data.List
 import           Data.Char
+import           Data.List
 import           System.Environment
 import           System.Exit
 
diff --git a/src/Jotto.hs b/src/Jotto.hs
index 6db11fb..55043f2 100644
--- a/src/Jotto.hs
+++ b/src/Jotto.hs
@@ -60,7 +60,7 @@ buildClassMap n = foldr addWord M.empty . preprocessWords
         Nothing  -> cmap
         Just set -> M.alter (appendWord word) set cmap
     appendWord :: String -> Maybe [String] -> Maybe [String]
-    appendWord word Nothing      = Just [word]
+    appendWord word Nothing   = Just [word]
     appendWord word (Just ws) = Just $ word : ws
 
 classMapWordCount :: ClassMap -> Int
@@ -69,8 +69,8 @@ classMapWordCount = sum . M.map length
 {- Basic guessing operations -}
 
 data GuessState = GuessState
-  { guessed       :: [Guess]
-  , allWords      :: ClassMap
+  { guessed  :: [Guess]
+  , allWords :: ClassMap
   } deriving (Show)
 
 score :: Class -> Class -> Int
@@ -100,7 +100,7 @@ guessState :: ClassMap -> GuessState
 guessState cmap = GuessState{guessed=[], allWords=cmap}
 
 addGuess :: Guess -> GuessState -> GuessState
-addGuess guess g = g{guessed=guess : (guessed g)}
+addGuess guess g = g{guessed=guess : guessed g}
 
 removeGuess :: String -> GuessState -> GuessState
 removeGuess w g =
@@ -158,7 +158,7 @@ worstCase c cmap =
 nextGuesses :: GuessState -> [(Int, [String])]
 nextGuesses g =
   let pwords = possibleWords g
-      lpwords = M.map length $ pwords
+      lpwords = M.map length pwords
       pclasses = M.keysSet pwords
       options1 = M.assocs $ allWords g
       options2 = parMap rdeepseq (\(set, w) -> (set, worstCase set lpwords, w)) options1