20 lines
448 B
Haskell
20 lines
448 B
Haskell
|
module Web.FrontController where
|
||
|
|
|
||
|
|
import IHP.RouterPrelude
|
||
|
|
import Web.Controller.Prelude
|
||
|
|
import Web.View.Layout (defaultLayout)
|
||
|
|
|
||
|
|
-- Controller Imports
|
||
|
|
import Web.Controller.Static
|
||
|
|
|
||
|
|
instance FrontController WebApplication where
|
||
|
|
controllers =
|
||
|
|
[ startPage WelcomeAction
|
||
|
|
-- Generator Marker
|
||
|
|
]
|
||
|
|
|
||
|
|
instance InitControllerContext WebApplication where
|
||
|
|
initContext = do
|
||
|
|
setLayout defaultLayout
|
||
|
|
initAutoRefresh
|