git.iko.soy/typeable/wai
on wai-app-static/1.3.0.4 help sign in
typeable/wai/wai-handler-fastcgi/test.hs
19 lines 674 B history raw
1{-# LANGUAGE OverloadedStrings #-}
2import Network.Wai
3import Network.Wai.Handler.FastCGI
4import Control.Monad.IO.Class
5import qualified Data.ByteString.Lazy as L
6import qualified Data.ByteString.Lazy.Char8 as L8
7import qualified Data.Enumerator as E
9main = run app
11app req
12 | pathInfo 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 ]