[Haskell-cafe] web-routes and forms
corentin.dupont at gmail.com
Sun Jan 9 01:44:54 CET 2011
I have difficulties mixing web-routes and forms:
I have put routes in all my site, except for forms which remains with the
type ServerPartT IO Response.
How to make them work together?
type NomicServer = ServerPartT IO
type RoutedNomicServer = RouteT PlayerCommand NomicServer
newRule :: ServerHandle -> NomicServer Response
newRule sh = do
methodM POST -- only accept a post method
mbEntry <- getData -- get the data
case mbEntry of
Nothing -> error $ "error: newRule"
Just (NewRule name text code pn) -> do
*html <- nomicPageComm pn sh (submitRule name text code pn))*
ok $ toResponse html
nomicPageComm :: PlayerNumber -> ServerHandle -> Comm () ->
nomicPageComm pn sh comm =
launchWebServer :: ServerHandle -> IO ()
launchWebServer sh = do
putStrLn "Starting web server...\nTo connect, drive your browser to \"
d <- liftIO getDataDir
simpleHTTP nullConf $ mconcat [dir "postLogin" $ postLogin,
fileServe  d,
dir "Login" $ ok $ toResponse $ loginPage,
dir "NewRule" $ newRule sh,
dir "NewGame" $ newGameWeb sh,
dir "Nomic" $ do
html <- implSite "
http://localhost:8000/Nomic/" "" (nomicSite sh)
ok $ toResponse html
The red line doesn't compile. I don't know how to transform a
RoutedNomicServer into a NomicServer.
For the future I intend to use formlets: is these some examples of programs
using happstack + web-routes + formlets?
On Fri, Jan 7, 2011 at 5:10 PM, Jeremy Shaw <jeremy at n-heptane.com> wrote:
> The [(String, String)] argument is for adding query parameters.
> > encodePathInfo ["foo", "bar", "baz"] [("key","value")]
> Instead of showURL you would use showURLParams.
> hope this helps!d
> - jeremy
> On Fri, Jan 7, 2011 at 8:12 AM, Corentin Dupont
> <corentin.dupont at gmail.com> wrote:
> > Hello Jeremy,
> > I'm using Web routes with happstack.
> > I'm following this tutorial:
> > http://tutorialpedia.org/tutorials/Happstack+type+safe+URLs.html
> > But It seems out of synch with the latest version of web-routes: 0.23.2.
> > The haddock documentation seems out of date also:
> > encodePathInfo :: [String] -> [(String, String)] -> String
> > For example:
> > encodePathInfo [\"foo\", \"bar\", \"baz\"]
> > "foo/bar/baz"
> > And I can't figure out what this [(String, String)] is for ;)
> > Thanks,
> > Corentin
-------------- next part --------------
An HTML attachment was scrubbed...
More information about the Haskell-Cafe