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