22 lines
541 B
Haskell
22 lines
541 B
Haskell
|
module Web.Types where
|
||
|
|
|
||
|
|
import IHP.Prelude
|
||
|
|
import IHP.ModelSupport
|
||
|
|
import Generated.Types
|
||
|
|
|
||
|
|
data WebApplication = WebApplication deriving (Eq, Show)
|
||
|
|
|
||
|
|
data HealthController
|
||
|
|
= HealthAction
|
||
|
|
deriving (Eq, Show, Data)
|
||
|
|
|
||
|
|
data ProbesController
|
||
|
|
= ProbesAction
|
||
|
|
| NewProbeAction
|
||
|
|
| ShowProbeAction { probeId :: !(Id Probe) }
|
||
|
|
| CreateProbeAction
|
||
|
|
| EditProbeAction { probeId :: !(Id Probe) }
|
||
|
|
| UpdateProbeAction { probeId :: !(Id Probe) }
|
||
|
|
| DeleteProbeAction { probeId :: !(Id Probe) }
|
||
|
|
deriving (Eq, Show, Data)
|