<div dir="ltr">Yes it is on.<div><br></div><div>--Zach<br><br><div class="gmail_quote">On Tue, Mar 29, 2011 at 9:06 PM, Anton Cheshkov <span dir="ltr"><<a href="mailto:acheshkov@gmail.com">acheshkov@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">maybe you want: <div><span style="border-collapse:collapse;font-family:'courier new', monospace;font-size:13px">jsonToRepJson $ jsonMap [("text", text'),( "charecter", charecter')]</span></div>
<div><font face="'courier new', monospace"><span style="border-collapse:collapse"><br></span></font></div><div><font face="'courier new', monospace"><span style="border-collapse:collapse">check that turned on OverloadedStrings lang extension<br>
</span></font><br><div class="gmail_quote"><div><div></div><div class="h5">2011/3/30 Zachary Kessin <span dir="ltr"><<a href="mailto:zkessin@gmail.com" target="_blank">zkessin@gmail.com</a>></span><br></div></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div></div><div class="h5">
<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></div></div>_______________________________________________<br>
web-devel mailing list<br>
<a href="mailto:web-devel@haskell.org" target="_blank">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>
</blockquote></div><br></div></div>