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