21 lines
515 B
Haskell
21 lines
515 B
Haskell
module Web.Types where
|
|
|
|
import IHP.Prelude
|
|
import IHP.ModelSupport
|
|
import Generated.Types
|
|
|
|
data WebApplication = WebApplication deriving (Eq, Show)
|
|
|
|
|
|
data StaticController = WelcomeAction deriving (Eq, Show, Data)
|
|
|
|
data ItemsController
|
|
= ItemsAction
|
|
| NewItemAction
|
|
| ShowItemAction { itemId :: !(Id Item) }
|
|
| CreateItemAction
|
|
| EditItemAction { itemId :: !(Id Item) }
|
|
| UpdateItemAction { itemId :: !(Id Item) }
|
|
| DeleteItemAction { itemId :: !(Id Item) }
|
|
deriving (Eq, Show, Data)
|