22 lines
516 B
Haskell
22 lines
516 B
Haskell
module Web.FrontController where
|
|
|
|
import IHP.RouterPrelude
|
|
import Web.Controller.Prelude
|
|
import Web.View.Layout (defaultLayout)
|
|
|
|
-- Controller Imports
|
|
import Web.Controller.Entries
|
|
import Web.Controller.Static
|
|
|
|
instance FrontController WebApplication where
|
|
controllers =
|
|
[ startPage TodayAction
|
|
-- Generator Marker
|
|
, parseRoute @EntriesController
|
|
]
|
|
|
|
instance InitControllerContext WebApplication where
|
|
initContext = do
|
|
setLayout defaultLayout
|
|
initAutoRefresh
|