[Haskell-cafe] web-routes and forms

9 Jan 2011

      Hello,

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?

I have:
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 () ->
RoutedNomicServer Html
nomicPageComm pn sh comm =
(..)

launchWebServer :: ServerHandle -> IO ()
launchWebServer sh = do
   putStrLn "Starting web server...\nTo connect, drive your browser to \"
http://localhost:8000/Login\""
   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?

Thanks,
Corentin

On Fri, Jan 7, 2011 at 5:10 PM, Jeremy Shaw <jeremy@n-heptane.com> wrote:
...
Hello,
The [(String, String)] argument is for adding query parameters.
...
encodePathInfo ["foo", "bar", "baz"] [("key","value")]
"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@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