Main.hs

module Main where

import IHP.Prelude
import IHP.Environment
import IHP.FrameworkConfig
import qualified IHP.Server
import IHP.RouterSupport
import IHP.ControllerPrelude
import IHP.Mail
--import IHP.GenericController

data DemoController = DemoAction deriving (Eq, Show, Data)

instance AutoRoute DemoController
instance InitControllerContext RootApplication
data WebApplication = WebApplication deriving (Eq, Show)

instance InitControllerContext WebApplication where
    initContext = pure ()

instance FrontController WebApplication where
    controllers =
        [ startPage DemoAction
        ]

instance FrontController RootApplication where
    controllers = [ mountFrontController WebApplication ]

instance Controller DemoController where
    action DemoAction = renderPlain "Hello World!"

instance Worker RootApplication where
  workers _ = []

config :: ConfigBuilder
config = do
    option Development
    option $ AppHostname "localhost"

main :: IO ()
main = IHP.Server.run config