@@ -1,15 +1,15 @@
11{-# LANGUAGE OverloadedStrings #-}
22import Network.Wai
3−import Network.Wai.Handler.SCGI
4−import Control.Monad.IO.Class
3+import Network.Wai.Handler.SCGI (run)
54import qualified Data.ByteString.Lazy as L
65import qualified Data.ByteString.Lazy.Char8 as L8
7−import qualified Data.Enumerator as E
6+import qualified Data.Enumerator.List as E
7+import Network.HTTP.Types (status200)
88
99main = run app
1010
1111app 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>"
12+ | rawPathInfo req == "/" = return $ responseLBS status200 [("Content-Type", "text/html")] "<form method='post' action='/post'><input type='text' name='name'><input type='submit'></form>"
1313app req = do
1414 bss <- E.consume
1515 return $ responseLBS status200 [("Content-Type", "text/plain")] $ L.concat