module Validation.SignIn
  ( signIn
  ) where

import           Data.Text                (Text)
import           Data.Validation          (Validation)

import           Common.Model             (SignInForm (..))
import qualified Common.Validation.SignIn as SignInValidation
import           Model.SignIn             (SignIn (..))

signIn :: SignInForm -> Validation Text SignIn
signIn form =
  SignIn
    <$> SignInValidation.email (_signInForm_email form)
    <*> SignInValidation.password (_signInForm_password form)