Server now returns an answer to a clue

Server.hs

 import Happstack.Server
+import Solver
 
 myConf = Conf
     { port      = 5001
@@ -8,4 +9,7 @@ myConf = Conf
     , threadGroup = threadGroup nullConf
     }
 
-main = simpleHTTP myConf $ return "hello, world!"
+clue = ("Peeling paint, profit slack, upset, in a state",10)
+
+
+main = simpleHTTP myConf $ return (show (solveReturn clue))