common/src/Common/Validation/Category.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

module Common.Validation.Category
  ( name
  , color
  ) where

import           Data.Text                (Text)
import           Data.Validation          (Validation)

import qualified Common.Validation.Atomic as Atomic

name :: Text -> Validation Text Text
name = Atomic.nonEmpty

color :: Text -> Validation Text Text
color = Atomic.color