Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement