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

/solve endpoint now takes in the clue string

parent 05c16846
import Happstack.Server
import Solver
import Control.Monad (msum)
......@@ -13,8 +14,5 @@ myConf = Conf
clue = ("Peeling paint, profit slack, upset, in a state",10)
-- main = simpleHTTP myConf $ return (show (solveReturn clue))
main = simpleHTTP nullConf $ msum [ dir "solve" $ path $ \s -> ok $ show (solveReturn clue)
]
main = simpleHTTP myConf $ msum [ dir "solve" $ path $ \s -> ok $ show (solveReturn (s,10))
]
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