yesod-0.7.0: scaffold/production_hs.cg

import Controller (with~sitearg~)
import Network.Wai.Handler.Warp (run)

main :: IO ()
main = with~sitearg~ $ run 3000