server/src/Model/CreateCategory.hs


1
2
3
4
5
6
7
8
9
10

module Model.CreateCategory
  ( CreateCategory(..)
  ) where

import           Data.Text (Text)

data CreateCategory = CreateCategory
  { _createCategory_name  :: Text
  , _createCategory_color :: Text
  } deriving (Show)