gistfile1.hs

data User = User {
  id :: String,
  email :: String,
  hash :: String,
  institutionId :: String
} deriving (Show, Generic)

instance ToJSON User
instance FromJSON User
instance ToDatum User
instance FromDatum User
instance Expr User


data UserPrintable = UserPrintable {
  email :: String,
  id :: String,
  institutionId :: String
} deriving (Generic)

instance ToJSON UserPrintable
instance FromJSON UserPrintable
instance ToDatum UserPrintable
instance FromDatum UserPrintable

data UserCreatable = UserCreatable {
  email :: String,
  hash :: String,
  institutionId :: String
} deriving (Generic)

instance ToJSON UserCreatable
instance FromJSON UserCreatable
instance ToDatum UserCreatable
instance FromDatum UserCreatable
instance Expr UserCreatable

data UserFromRequest = UserFromRequest {
  email :: String,
  institutionId :: String,
  password :: String
}