Warp vs. Yesod benchmark

Makefile

warp: warp.hs
	ghc --make -O2 warp.hs

warp-prof: warp.hs
	ghc --make -prof -auto-all -O2 warp.hs -o warp-prof

yesod: yesod.hs
	ghc --make -O2 yesod.hs

yesod-prof: yesod.hs
	ghc --make -prof -auto-all -O2 yesod.hs -o yesod-prof

bench:
	httperf --hog --client=0/1 --server=localhost --port=8080 --uri=/ --rate=1000 --send-buffer=4096 --recv-buffer=16384 --num-conns=100 --num-calls=100 --burst-length=20 | grep "^Request rate"

warp.hs

{-# LANGUAGE OverloadedStrings #-}

import Network.Wai
import Network.HTTP.Types
import Network.Wai.Handler.Warp (run)
import Data.ByteString.Lazy.Char8 ()

app :: Application
app _ = return $ responseLBS
    status200               
    [("Content-Type", "text/html")]
    "Hello World!"                 

main :: IO ()
main = do
    putStrLn "http://localhost:8080/"
    run 8080 app

yesod.hs

{-# LANGUAGE TypeFamilies, QuasiQuotes, MultiParamTypeClasses, TemplateHaskell #-}
import Yesod

data HelloWorld = HelloWorld

mkYesod "HelloWorld" [parseRoutes|
                     / HomeR GET
|]

instance Yesod HelloWorld

getHomeR :: Handler RepHtml
getHomeR = defaultLayout [whamlet|$newline always
                         Hello World!
|]

main :: IO ()
main = warp 8080 HelloWorld