app/main.hs


1
2
3
4
5
6
7
8

import Prelude              (IO)
import Yesod.Default.Config (fromArgs)
import Yesod.Default.Main   (defaultMainLog)
import Settings             (parseExtra)
import Application          (makeApplication)

main :: IO ()
main = defaultMainLog (fromArgs parseExtra) makeApplication