<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">&lt;<a href="mailto:acheshkov@gmail.com">acheshkov@gmail.com</a>&gt;</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:&#39;courier new&#39;, monospace;font-size:13px">jsonToRepJson $ jsonMap [(&quot;text&quot;, text&#39;),( &quot;charecter&quot;, charecter&#39;)]</span></div>


<div><font face="&#39;courier new&#39;, monospace"><span style="border-collapse:collapse"><br></span></font></div><div><font face="&#39;courier new&#39;, 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">&lt;<a href="mailto:zkessin@gmail.com" target="_blank">zkessin@gmail.com</a>&gt;</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&#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></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>