common/src/Common/Model/SignIn.hs


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

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

import           Data.Aeson   (FromJSON, ToJSON)
import           Data.Text    (Text)
import           GHC.Generics (Generic)

data SignIn = SignIn
  { _signIn_email :: Text
  } deriving (Show, Generic)

instance FromJSON SignIn
instance ToJSON SignIn