2023-04-16 10:31:32 +00:00
|
|
|
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)
|
2023-04-16 10:33:20 +00:00
|
|
|
|
|
|
|
data TasksController
|
|
|
|
= TasksAction
|
|
|
|
| NewTaskAction
|
|
|
|
| ShowTaskAction { taskId :: !(Id Task) }
|
|
|
|
| CreateTaskAction
|
|
|
|
| EditTaskAction { taskId :: !(Id Task) }
|
|
|
|
| UpdateTaskAction { taskId :: !(Id Task) }
|
|
|
|
| DeleteTaskAction { taskId :: !(Id Task) }
|
|
|
|
deriving (Eq, Show, Data)
|