Commit 7d4e2286 authored by gga19's avatar gga19
Browse files

Server now returns an answer to a clue

parent b4dde5f3
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))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment