Re: [web-devel] Yesod Examples

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 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 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@haskell.org http://www.haskell.org/mailman/listinfo/web-devel