packages feed

hack-handler-evhttp-2009.7.29: examples/Basic.hs

module Main where

import Data.Default
import Data.ByteString.Class
import Hack
import Hack.Handler.EvHTTP

main :: IO ()
main = do
    print "hi"
    run $ \_ -> do
        return $ def {
            status = 200,
            body = toLazyByteString "<html><body><h1>Basic</h1></body></html>",
            headers = [("Content-Type", "text/html")]
        }
    return ()