warp/attic/print-post.hs · typeable/wai

git.iko.soy/typeable/wai

on warp-3.3.9-conn-closed-by-pear help sign in

18 lines 563 B history raw

1{-# LANGUAGE OverloadedStrings #-}

2import Network.Wai

3import Network.Wai.Handler.Warp

4import Network.HTTP.Types (status200)

5import Blaze.ByteString.Builder (fromByteString)

6import qualified Data.Conduit as C

7import qualified Data.Conduit.List as CL

8import Control.Monad.IO.Class (liftIO)

11 - use `curl -H "Transfer-Encoding: chunked" estfile http://localhost:3000/` to send a chunked post request.

12 -}

14main = run 3000 app

16app req = do

17 (requestBody req C.$$ CL.consume) >>= liftIO . print

18 return $ ResponseBuilder status200 [] (fromByteString "PONG")