Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {-# LANGUAGE DeriveGeneric #}
- data User = User {
- id :: String,
- email :: String,
- hash :: String,
- institutionId :: String
- } deriving (Show, Generic)
- data UserPrintable = UserPrintable {
- email :: String,
- id :: String,
- institutionId :: String
- } deriving (Generic)
- data UserCreatable = UserCreatable {
- email :: String,
- hash :: String,
- institutionId :: String
- } deriving (Generic)
- data UserFromRequest = UserFromRequest {
- email :: String,
- institutionId :: String,
- password :: String
- } deriving (Generic)
- -- UGHHHHHHHHHHH
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement