blob: 2a3a697e2c01e22bbf3abe7f11c0067b28bb8771 (
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
|
