29 Mar
2011
29 Mar
'11
6:58 p.m.
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