Removed redundant clue

Server.hs

@@ -11,13 +11,10 @@ myConf = Conf
     , threadGroup = threadGroup nullConf
     }
 
-clue = ("Peeling paint, profit slack, upset, in a state",10)
-
-
 main = simpleHTTP myConf $ msum [ dir "solve" $ path $ \clue -> path $ \wordLength
                                     -> ok $ show (solveReturn (clue, wordLength))
                                 , dir "solveAll" $ path $ \clue -> path $ \wordLength
-                                    -> ok $ show (solveAllReturn (clue, wordLength))  
+                                    -> ok $ show (solveAllReturn (clue, wordLength))
                                 , dir "solveWithAnswer" $ path $ \clue -> path $ \wordLength -> path $ \answer
                                     -> ok $ show (solveWithAnswerReturn (clue, wordLength) answer)
                                 ]