6 Mar
2011
6 Mar
'11
7:46 p.m.
I have found myself. It is example to extract all Request POST data and
return it in Response
*import qualified Data.ByteString.Char8 as C*
*import Network.Wai.Parse (parseRequestBody, lbsSink)*
*main = run 3000 app*
*
*
*app req = do*
* (params, _) <- parseRequestBody lbsSink req*
* let r = C.concat $ map (\(x,y) -> C.concat [x,y]) params*
* return $ ResponseBuilder *
* status200*
* [("Content-Type", "text/plain")]*
* $ copyByteString r*
2011/3/6 Антон Чешков
Hi Michael. Please explain how to extract POST data from WAI Request.
Thanks.
-- Best regards, Cheshkov Anton Phone: +7 909 005 18 82 Skype: cheshkov_anton
-- Best regards, Cheshkov Anton Phone: +7 909 005 18 82 Skype: cheshkov_anton