[web-devel] Yesod Examples

Zachary Kessin zkessin at gmail.com
Tue Mar 29 20:58:48 CEST 2011

Ok, I'm trying to setup a handler to take data from a HTTP post, and store
it into a
database, This is what I came up with, but its not right. Can someone tell
me what I am doing

postPostMessageR :: Handler RepJson
postPostMessageR = do
  liftIO $ putStrLn "POST"
  CharecterPost clients _ <- getYesod
  (text, charecter) <- do
    text      <- lookupPostParam "text"
    charecter <- lookupPostParam "charecter"
    case (text, charecter) of
      (Just text', Just charecter') ->   return (text', charecter')
      _              -> invalidArgs ["text not provided."]

  jsonToRepJson $ jsonMap (("text", text'),( "charecter", charecter'))

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://www.haskell.org/pipermail/web-devel/attachments/20110329/88299a82/attachment.htm>

More information about the web-devel mailing list