maybe you want:
jsonToRepJson $ jsonMap [("text", text'),( "charecter", charecter')]
check that turned on OverloadedStrings lang extension
2011/3/30 Zachary Kessin
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
-- Best regards, Cheshkov Anton Phone: +7 909 005 18 82 Skype: cheshkov_anton