diff options
Diffstat (limited to 'common/src/Common/Validation/SignIn.hs')
-rw-r--r-- | common/src/Common/Validation/SignIn.hs | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/common/src/Common/Validation/SignIn.hs b/common/src/Common/Validation/SignIn.hs new file mode 100644 index 0000000..ac9cc37 --- /dev/null +++ b/common/src/Common/Validation/SignIn.hs @@ -0,0 +1,17 @@ +module Common.Validation.SignIn + ( email + , password + ) where + +import Data.Text (Text) +import Data.Validation (Validation) + +import Common.Model.Email (Email (..)) +import Common.Model.Password (Password (..)) +import qualified Common.Validation.Atomic as Atomic + +email :: Text -> Validation Text Email +email = fmap Email . Atomic.minLength 5 + +password :: Text -> Validation Text Password +password = fmap Password . Atomic.minLength 8 |