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