Solve endpoint now takes /solve/<clue string>/<word length>

Server.hs

@@ -14,5 +14,5 @@ myConf = Conf
 clue = ("Peeling paint, profit slack, upset, in a state",10)
 
 
-main = simpleHTTP myConf $ msum [ dir "solve" $ path $ \s -> ok $ show (solveReturn (s,10))
+main = simpleHTTP myConf $ msum [ dir "solve" $ path $ \s -> path $ \n -> ok $ show (solveReturn (s,n))
                                 ]