{-# LANGUAGE DeriveGeneric #-}

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

import Data.Aeson (FromJSON)
import Data.Text (Text)
import GHC.Generics (Generic)

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

instance FromJSON CreateCategory