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/Atomic.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/Atomic.hs')
| -rw-r--r-- | common/src/Common/Validation/Atomic.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/common/src/Common/Validation/Atomic.hs b/common/src/Common/Validation/Atomic.hs index 3516668..2a356df 100644 --- a/common/src/Common/Validation/Atomic.hs +++ b/common/src/Common/Validation/Atomic.hs @@ -4,6 +4,7 @@ module Common.Validation.Atomic , number , nonNullNumber , day + , color ) where import Data.Text (Text) @@ -45,3 +46,7 @@ day str = case Time.parseDay str of Just d -> V.Success d Nothing -> V.Failure $ Msg.get Msg.Form_InvalidDate + +-- TODO: validate +color :: Text -> Validation Text Text +color str = V.Success str |