git.iko.soy/typeable/wai
on warp-tls/3.1.1 help sign in
typeable/wai/wai-handler-launch/test.hs
7 lines 304 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 def $ \_ f -> f $ responseLBS status200 [("Content-Type", "text/html; charset=utf8")] "<html><head></head><body>HELLO THERE"