@@ -0,0 +1,21 @@
1+import Data.ByteString.Char8 (unpack, pack)
2+import Data.ByteString.Lazy (fromChunks)
3+import Network.Wai
4+import Network.Wai.Enumerator
5+import Network.Wai.Middleware.Gzip
6+import Network.Wai.Handler.SimpleServer
7+
8+app :: Application
9+app req =
10+ case unpack $ pathInfo req of
11+ "/" -> return $ Response Status200 [] $ Right $ fromLBS
12+ $ fromChunks $ flip map [1..10000] $ \i -> pack $
13+ concat
14+ [ "<p>Just this same paragraph again. "
15+ , show i
16+ , "</p>"
17+ ]
18+ _ -> return $ Response Status404 [] $ Left "../LICENSE"
19+
20+main :: IO ()
21+main = run 3000 $ gzip app