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: &#39;courier new&#39;, monospace; font-size: 13px; ">jsonToRepJson $ jsonMap [(&quot;text&quot;, text&#39;),( &quot;charecter&quot;, charecter&#39;)]</span></div>

<div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace"><span class="Apple-style-span" style="border-collapse: collapse;"><br></span></font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, 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">&lt;<a href="mailto:zkessin@gmail.com">zkessin@gmail.com</a>&gt;</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&#39;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="&#39;courier new&#39;, monospace">postPostMessageR :: Handler RepJson</font></div><div><font face="&#39;courier new&#39;, monospace">postPostMessageR = do</font></div>
<div><font face="&#39;courier new&#39;, monospace">  liftIO $ putStrLn &quot;POST&quot;</font></div><div><font face="&#39;courier new&#39;, monospace">  CharecterPost clients _ &lt;- getYesod</font></div>
<div><font face="&#39;courier new&#39;, monospace">  (text, charecter) &lt;- do</font></div><div><font face="&#39;courier new&#39;, monospace">    text      &lt;- lookupPostParam &quot;text&quot;</font></div>
<div><font face="&#39;courier new&#39;, monospace">    charecter &lt;- lookupPostParam &quot;charecter&quot;</font></div><div><font face="&#39;courier new&#39;, monospace">    case (text, charecter) of</font></div>
<div><font face="&#39;courier new&#39;, monospace">      (Just text&#39;, Just charecter&#39;) -&gt;   return (text&#39;, charecter&#39;) </font></div><div><font face="&#39;courier new&#39;, monospace">      _              -&gt; invalidArgs [&quot;text not provided.&quot;]</font></div>


<div><font face="&#39;courier new&#39;, monospace">    </font></div><div><font face="&#39;courier new&#39;, monospace">  jsonToRepJson $ jsonMap ((&quot;text&quot;, text&#39;),( &quot;charecter&quot;, charecter&#39;))</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>