herringbone-0.0.7: test/WaiAdapterTest.hs

module WaiAdapterTest where

import Network.Wai
import Network.Wai.Handler.Warp

import Web.Herringbone
import SpecHelper

app :: Application
app = toApplication testHB

runApp :: IO ()
runApp = do
    putStrLn "running on port 3002..."
    run 3002 app