blob: 5b08b8652f62702dddea1e265183344e1eaeaa46 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{-# LANGUAGE DeriveGeneric #-}
module Common.Model.EditCategory
( EditCategory(..)
) where
import Data.Aeson (FromJSON)
import Data.Text (Text)
import GHC.Generics (Generic)
import Common.Model.Category (CategoryId)
data EditCategory = EditCategory
{ _editCategory_id :: CategoryId
, _editCategory_name :: Text
, _editCategory_color :: Text
} deriving (Show, Generic)
instance FromJSON EditCategory
|