maybe you want: <div><meta http-equiv="content-type" content="text/html; charset=utf-8"><span class="Apple-style-span" style="border-collapse: collapse; font-family: 'courier new', monospace; font-size: 13px; ">jsonToRepJson $ jsonMap [("text", text'),( "charecter", charecter')]</span></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-style-span" style="border-collapse: collapse;"><br></span></font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-style-span" style="border-collapse: collapse;">check that turned on OverloadedStrings lang extension<br>
</span></font><br><div class="gmail_quote">2011/3/30 Zachary Kessin <span dir="ltr"><<a href="mailto:zkessin@gmail.com">zkessin@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div dir="ltr"><div>Ok, I'm trying to setup a handler to take data from a HTTP post, and store it into a </div><div>database, This is what I came up with, but its not right. Can someone tell me what I am doing </div>
<div>
wrong.</div><div><br></div><div><font face="'courier new', monospace">postPostMessageR :: Handler RepJson</font></div><div><font face="'courier new', monospace">postPostMessageR = do</font></div>
<div><font face="'courier new', monospace"> liftIO $ putStrLn "POST"</font></div><div><font face="'courier new', monospace"> CharecterPost clients _ <- getYesod</font></div>
<div><font face="'courier new', monospace"> (text, charecter) <- do</font></div><div><font face="'courier new', monospace"> text <- lookupPostParam "text"</font></div>
<div><font face="'courier new', monospace"> charecter <- lookupPostParam "charecter"</font></div><div><font face="'courier new', monospace"> case (text, charecter) of</font></div>
<div><font face="'courier new', monospace"> (Just text', Just charecter') -> return (text', charecter') </font></div><div><font face="'courier new', monospace"> _ -> invalidArgs ["text not provided."]</font></div>
<div><font face="'courier new', monospace"> </font></div><div><font face="'courier new', monospace"> jsonToRepJson $ jsonMap (("text", text'),( "charecter", charecter'))</font></div>
<div><br></div><div><br></div><div>--Zach</div></div>
<br>_______________________________________________<br>
web-devel mailing list<br>
<a href="mailto:web-devel@haskell.org">web-devel@haskell.org</a><br>
<a href="http://www.haskell.org/mailman/listinfo/web-devel" target="_blank">http://www.haskell.org/mailman/listinfo/web-devel</a><br>
<br></blockquote></div><br><br clear="all"><br>-- <br>Best regards,<br>Cheshkov Anton <br>Phone: +7 909 005 18 82<br>Skype: cheshkov_anton<br>
</div>