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