Warp vs. Yesod benchmark

Makefile

GHC=ghc --make -O2 #-threaded
GHC_PROF=${GHC} -prof -auto-all

warp: warp.hs
	${GHC} warp.hs

warp-prof: warp.hs
	${GHC_PROF} warp.hs

yesod: yesod.hs
	${GHC} yesod.hs

yesod-prof: yesod.hs
	${GHC_PROF} yesod.hs

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"

clean:
	rm -f *.hi *.o warp yesod

tornadoweb.py

import tornado.httpserver
import tornado.ioloop
import tornado.web


class ServeHTTP(tornado.web.RequestHandler):
    def get(self):
        self.write("Hello World")


urls = [
    (r"/", ServeHTTP)
]
app = tornado.web.Application(urls)


if __name__ == "__main__":
    server = tornado.httpserver.HTTPServer(app)
    server.listen(8080)
    tornado.ioloop.IOLoop.instance().start()

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
|]

-- Disable session
instance Yesod HelloWorld where
    makeSessionBackend = const $ return Nothing

-- Disable Hamlet
getHomeR = return . RepPlain . toContent $ "Hello World!"

main :: IO ()
main = warp 8080 HelloWorld