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)