wai/warp server

server.hs

start :: Context -> IO ()
start ctx = do
    let port = 3000
    Prelude.putStrLn $ "Listening on port " ++ show port
    run port (app ctx)

app :: Context -> Application
app ctx req respond =
    let
        path = pathInfo req
        method = requestMethod req
    in
    case (method, path) of
        ("GET", ["boards"]) -> do
            result <- Board.getBoards ctx
            respond $ ok (websiteOrigin ctx) result
    ...