forked from janek/compareware
22 lines
425 B
Haskell
22 lines
425 B
Haskell
|
module Main where
|
||
|
|
import IHP.Prelude
|
||
|
|
|
||
|
|
import Config
|
||
|
|
import qualified IHP.Server
|
||
|
|
import IHP.RouterSupport
|
||
|
|
import IHP.FrameworkConfig
|
||
|
|
import IHP.Job.Types
|
||
|
|
import Web.FrontController
|
||
|
|
import Web.Types
|
||
|
|
|
||
|
|
instance FrontController RootApplication where
|
||
|
|
controllers = [
|
||
|
|
mountFrontController WebApplication
|
||
|
|
]
|
||
|
|
|
||
|
|
instance Worker RootApplication where
|
||
|
|
workers _ = []
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = IHP.Server.run config
|