hack-handler-hyena-2010.1.18: src/Test.hs

module Main where

import Hack
import Hack.Handler.Hyena
import Hack.Contrib.Middleware.Inspect
import Hack.Contrib.Middleware.Debug
import Hack.Contrib.Middleware.ContentLength
import Hack.Contrib.Utils
import Data.ByteString.Lazy.Char8 (pack)

pong = pack "pong\n"

app :: Application
app = \env -> return $
  Response 200 [ ("Content-Type", "text/plain") ] pong

main = run $ content_length app