Commit 05c16846 authored by Georgi Angelov's avatar Georgi Angelov
Browse files

Added solve endpoint

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