module Main where import Data.Default import Data.ByteString.Class import Hack import Hack.Handler.EvHTTP main :: IO () main = do run $ \_ -> do return $ def { status = 200, body = toLazyByteString "

Basic

", headers = [("Content-Type", "text/html")] } return ()