Added split string function

Server.hs

@@ -30,3 +30,9 @@ solveAnswers clue wordLength answers
           = solveEach clue wordLength as
         | otherwise
           = head (solveWithAnswerReturn (clue, wordLength) a) : solveEach clue wordLength as
+
+wordsWhen     :: (Char -> Bool) -> String -> [String]
+wordsWhen p s =  case dropWhile p s of
+                      "" -> []
+                      s' -> w : wordsWhen p s''
+                            where (w, s'') = break p s'