[web-devel] Yesod Examples

[Zachary Kessin]

Compile time error, plus I'm pretty sure the code
is not actually doing what I want it to.

Like I said, I want a post method that will add a row to the database, and a
get that
will retrieve a list of the rows (as a JSON).

--Zach


On Tue, Mar 29, 2011 at 9:29 PM, Michael Snoyman <michael at snoyman.com>wrote:

> 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
> >
> >
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://www.haskell.org/pipermail/web-devel/attachments/20110329/e2ce938b/attachment.htm>