diff options
author | Joris | 2019-12-08 11:39:37 +0100 |
---|---|---|
committer | Joris | 2019-12-08 11:39:37 +0100 |
commit | 316bda10c6bec8b5ccc9e23f1f677c076205f046 (patch) | |
tree | 98da1d18834108af50f80ca6fa5c0f4facc42472 /common/src/Common/Validation/Category.hs | |
parent | e622e8fdd2e40b4306b5cc724d8dfb76bf976242 (diff) | |
download | budget-316bda10c6bec8b5ccc9e23f1f677c076205f046.tar.gz budget-316bda10c6bec8b5ccc9e23f1f677c076205f046.tar.bz2 budget-316bda10c6bec8b5ccc9e23f1f677c076205f046.zip |
Add category page
Diffstat (limited to 'common/src/Common/Validation/Category.hs')
-rw-r--r-- | common/src/Common/Validation/Category.hs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/common/src/Common/Validation/Category.hs b/common/src/Common/Validation/Category.hs new file mode 100644 index 0000000..f9e6ab4 --- /dev/null +++ b/common/src/Common/Validation/Category.hs @@ -0,0 +1,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 |