diff options
author | Joris | 2018-11-01 13:14:25 +0100 |
---|---|---|
committer | Joris | 2019-08-04 21:14:32 +0200 |
commit | 2741f47ef7b87255203bc2f7f7b2b9140c70b8f0 (patch) | |
tree | ea5f685cdf8f3de2efa1113325d45faaa90c977e /common/src/Common/Validation/SignIn.hs | |
parent | 86957359ecf54c205aee1c09e151172c327e987a (diff) | |
download | budget-2741f47ef7b87255203bc2f7f7b2b9140c70b8f0.tar.gz budget-2741f47ef7b87255203bc2f7f7b2b9140c70b8f0.tar.bz2 budget-2741f47ef7b87255203bc2f7f7b2b9140c70b8f0.zip |
Implementing client side validation
Diffstat (limited to 'common/src/Common/Validation/SignIn.hs')
-rw-r--r-- | common/src/Common/Validation/SignIn.hs | 19 |
1 files changed, 19 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..18ceb44 --- /dev/null +++ b/common/src/Common/Validation/SignIn.hs @@ -0,0 +1,19 @@ +module Common.Validation.SignIn + ( signIn + , email + ) where + +import Data.Text (Text) +import Data.Validation (Validation) + +import Common.Model.Email (Email (..)) +import Common.Model.SignInForm (SignInForm (..)) +import qualified Common.Validation.Atomic as Atomic +import qualified Data.Validation as Validation + +signIn :: SignInForm -> Maybe Email +signIn (SignInForm str) = + Validation.validation (const Nothing) Just . email $ str + +email :: Text -> Validation Text Email +email = fmap Email . Atomic.minLength 5 |