server/src/Model/SignIn.hs


1
2
3
4
5
6
7
8
9
10

module Model.SignIn
  ( SignIn(..)
  ) where

import           Common.Model (Email, Password)

data SignIn = SignIn
  { _signIn_email    :: Email
  , _signIn_password :: Password
  } deriving Show