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