compareware/Web/FrontController.hs

22 lines
512 B
Haskell
Raw Normal View History

2023-04-16 12:31:32 +02:00
module Web.FrontController where
import IHP.RouterPrelude
import Web.Controller.Prelude
import Web.View.Layout (defaultLayout)
-- Controller Imports
2024-04-11 18:25:09 +02:00
import Web.Controller.Items
2023-04-16 12:31:32 +02:00
import Web.Controller.Static
instance FrontController WebApplication where
controllers =
2024-04-11 18:25:09 +02:00
[ startPage ItemsAction
2023-04-16 12:31:32 +02:00
-- Generator Marker
2024-04-11 18:25:09 +02:00
, parseRoute @ItemsController
2023-04-16 12:31:32 +02:00
]
instance InitControllerContext WebApplication where
initContext = do
setLayout defaultLayout
initAutoRefresh