{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE ViewPatterns #-}

module Application (main) where

import Yesod (mkYesodDispatch, warp)

import Foundation
import Handler.Hello

mkYesodDispatch "HelloWorld" resourcesHelloWorld

main :: IO ()
main :: IO ()
main = do
  String -> IO ()
putStrLn String
"Serving application on http://localhost:3000"
  forall site. YesodDispatch site => Int -> site -> IO ()
warp Int
3000 HelloWorld
HelloWorld