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