22 lines
551 B
Haskell
22 lines
551 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 EntriesController
|
|
= TodayAction
|
|
| EntriesAction
|
|
| NewEntryAction
|
|
| ShowEntryAction { entryId :: !(Id Entry) }
|
|
| CreateEntryAction
|
|
| EditEntryAction { entryId :: !(Id Entry) }
|
|
| UpdateEntryAction { entryId :: !(Id Entry) }
|
|
| DeleteEntryAction { entryId :: !(Id Entry) }
|
|
deriving (Eq, Show, Data)
|