git.iko.soy/typeable/wai
on wai-websockets/1.3.0 help sign in
typeable/wai/wai-handler-scgi/test.hs
19 lines 693 B history raw
1{-# LANGUAGE OverloadedStrings #-}
2import Network.Wai
3import Network.Wai.Handler.SCGI (run)
4import qualified Data.ByteString.Lazy as L
5import qualified Data.ByteString.Lazy.Char8 as L8
6import qualified Data.Enumerator.List as E
7import Network.HTTP.Types (status200)
9main = run app
11app req
12 | rawPathInfo req == "/" = return $ responseLBS status200 [("Content-Type", "text/html")] "<form method='post' action='/post'><input type='text' name='name'><input type='submit'></form>"
13app req = do
14 bss <- E.consume
15 return $ responseLBS status200 [("Content-Type", "text/plain")] $ L.concat
16 [ L8.pack $ show $ requestHeaders req
17 , "\n"
18 , L.fromChunks bss
19 ]