server/src/Validation/SignIn.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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)