{-# LANGUAGE OverloadedStrings #-} module Main where import qualified Data.ByteString as B import Ketchup.Auth import Ketchup.Httpd import Ketchup.Routing import Ketchup.Utils import Ketchup.Chunked import Ketchup.Static handle hnd req = sendReply hnd 200 [("Content-Type", ["text/html"])] response where response = B.concat ["