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, _) <- parseRequestBody lbsSink req</i></div><div><i> let r = C.concat $ map (\(x,y) -> C.concat [x,y]) params</i></div>
<div><i> return $ ResponseBuilder </i></div><div><i> status200</i></div><div><i> [("Content-Type", "text/plain")]</i></div><div><i> $ copyByteString r</i></div><br><div class="gmail_quote">
2011/3/6 Антон Чешков <span dir="ltr"><<a href="mailto:acheshkov@gmail.com">acheshkov@gmail.com</a>></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>