compareware/Web/Types.hs

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)