[web-devel] Yesod Examples

[Michael Snoyman]

Are you getting a compile-time error, or is the result at runtime not
what you expected? More details will be helpful here.

Michael

On Tue, Mar 29, 2011 at 8:58 PM, Zachary Kessin <zkessin at gmail.com> wrote:
> 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
> wrong.
> 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'))
>
> --Zach
> _______________________________________________
> web-devel mailing list
> web-devel at haskell.org
> http://www.haskell.org/mailman/listinfo/web-devel
>
>