git.iko.soy/typeable/wai
on wai-handler-fastcgi/1.2.0.2 help sign in
typeable/wai/warp/undrained.hs
9 lines 371 B history raw
1{-# LANGUAGE OverloadedStrings #-}
2import Network.Wai
3import Network.Wai.Handler.Warp
4import Blaze.ByteString.Builder (fromByteString)
6main = run 3000 $ const $ return $ responseBuilder
7 status200
8 [("Content-Type", "text/html")]
9 $ fromByteString "<form method='post' enctype='multipart/form-data'><textarea name='foo'></textarea><input type='submit'></form>"