1
0
Fork 0
compareware/Web/FrontController.hs

22 lines
512 B
Haskell
Raw Normal View History

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