blob: 397c465b7f7f8920e27cf4bd7923de6311abc0a0 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{-# LANGUAGE DeriveGeneric #-}
module Data.ContactData (Contact, makeContact) where
import Data.Aeson
import Data.Aeson.TH
import GHC.Generics (Generic)
type EMail = String
type MXID = String
data Contact = Contact
{ email_address :: EMail
, matrix_id :: MXID
, role :: String -- Enum? [m.role.admin, m.role.security]
} deriving (Eq, Show, Generic)
instance FromJSON Contact where
instance ToJSON Contact where
makeContact :: String -> String -> String -> Contact
makeContact = Contact
|