mirror of
https://github.com/typeable/wai.git
synced 2025-01-06 05:25:53 +03:00
8 lines
304 B
Haskell
8 lines
304 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 def $ \_ f -> f $ responseLBS status200 [("Content-Type", "text/html; charset=utf8")] "<html><head></head><body>HELLO THERE"
|