I have found myself. It is example to extract all Request POST data and return it in Response<div><br></div><div><br></div><div><i>import qualified Data.ByteString.Char8 as C</i></div><div><i>import Network.Wai.Parse (parseRequestBody, lbsSink)</i></div>

<div><br></div><div><div><i>main = run 3000 app</i></div><div><i><br></i></div><div><i>app req = do</i></div><div><i>  (params, _) &lt;- parseRequestBody lbsSink req</i></div><div><i>  let r = C.concat $ map (\(x,y) -&gt; C.concat [x,y]) params</i></div>

<div><i>  return $ ResponseBuilder </i></div><div><i>      status200</i></div><div><i>      [(&quot;Content-Type&quot;, &quot;text/plain&quot;)]</i></div><div><i>      $ copyByteString r</i></div><br><div class="gmail_quote">

2011/3/6 Антон Чешков <span dir="ltr">&lt;<a href="mailto:acheshkov@gmail.com">acheshkov@gmail.com</a>&gt;</span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
Hi Michael. Please explain how to extract POST data from WAI Request.<div>
<br></div><div>Thanks.<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><br clear="all"><br>-- <br>Best regards,<br>Cheshkov Anton <br>Phone: +7 909 005 18 82<br>Skype: cheshkov_anton<br>
</div>