mirror of
https://github.com/typeable/wai.git
synced 2025-01-07 06:36:36 +03:00
8 lines
308 B
Haskell
8 lines
308 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
import Network.Wai
|
|
import Network.HTTP.Types
|
|
import Network.Wai.Handler.Launch
|
|
import Network.Wai.Middleware.Gzip
|
|
|
|
main = runUrl "FIXME" $ gzip True $ \_ -> return $ responseLBS status200 [("Content-Type", "text/html; charset=utf8")] "<html><head></head><body>HELLO THERE"
|