diff options
| author | Joris | 2020-01-19 14:03:31 +0100 |
|---|---|---|
| committer | Joris | 2020-01-19 14:10:51 +0100 |
| commit | af8353c6164aaaaa836bfed181f883ac86bb76a5 (patch) | |
| tree | b23c3f87a82f0e3c2e5ed46b932c3495616cfbae /common/src/Common/Validation/Atomic.hs | |
| parent | bc48d7428607c84003658d5b88d41cf923d010fd (diff) | |
| download | budget-af8353c6164aaaaa836bfed181f883ac86bb76a5.tar.gz budget-af8353c6164aaaaa836bfed181f883ac86bb76a5.tar.bz2 budget-af8353c6164aaaaa836bfed181f883ac86bb76a5.zip | |
Sign in with email and password
Diffstat (limited to 'common/src/Common/Validation/Atomic.hs')
| -rw-r--r-- | common/src/Common/Validation/Atomic.hs | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/common/src/Common/Validation/Atomic.hs b/common/src/Common/Validation/Atomic.hs index 4bb7cad..9c21e14 100644 --- a/common/src/Common/Validation/Atomic.hs +++ b/common/src/Common/Validation/Atomic.hs @@ -1,10 +1,11 @@ module Common.Validation.Atomic - ( nonEmpty + ( color + , day , minLength - , number + , nonEmpty , nonNullNumber - , day - , color + , number + , password ) where import qualified Data.Char as Char @@ -55,3 +56,6 @@ color str = else V.Failure (Msg.get Msg.Form_InvalidColor) + +password :: Text -> Validation Text Text +password = minLength 8 |