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