git.iko.soy/typeable/wai
on wai-handler-launch/0.0.0 help sign in
typeable/wai/test.hs
7 lines 297 B history raw
1{-# LANGUAGE OverloadedStrings #-}
2import Network.Wai
3import Network.HTTP.Types
4import Network.Wai.Handler.Launch
5import Network.Wai.Middleware.Gzip
7main = run $ gzip True $ \_ -> return $ responseLBS status200 [("Content-Type", "text/html; charset=utf8")] "<html><head></head><body>HELLO THERE"