IntenseFinance/simplex-chat
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: fix type for JSON

Browse Source
This commit is contained in:
Evgeny Poberezkin
2023-10-18 21:15:37 +01:00
parent 852e77b1d9
commit 2219cea026
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/Simplex/Chat/Messages.hs
View File

@@ -933,7 +933,7 @@ instance ToJSON (CIDeleted d) where
data JSONCIDeleted data JSONCIDeleted
= JCIDDeleted {deletedTs :: Maybe UTCTime} = JCIDDeleted {deletedTs :: Maybe UTCTime}
| JCIBlocked {deletedTs :: Maybe UTCTime} | JCIDBlocked {deletedTs :: Maybe UTCTime}
| JCIDModerated {deletedTs :: Maybe UTCTime, byGroupMember :: GroupMember} | JCIDModerated {deletedTs :: Maybe UTCTime, byGroupMember :: GroupMember}
deriving (Show, Generic) deriving (Show, Generic)
@@ -944,7 +944,7 @@ instance ToJSON JSONCIDeleted where
jsonCIDeleted :: CIDeleted d -> JSONCIDeleted jsonCIDeleted :: CIDeleted d -> JSONCIDeleted
jsonCIDeleted = \case jsonCIDeleted = \case
CIDeleted ts -> JCIDDeleted ts CIDeleted ts -> JCIDDeleted ts
CIBlocked ts -> JCIBlocked ts CIBlocked ts -> JCIDBlocked ts
CIModerated ts m -> JCIDModerated ts m CIModerated ts m -> JCIDModerated ts m
itemDeletedTs :: CIDeleted d -> Maybe UTCTime itemDeletedTs :: CIDeleted d -> Maybe UTCTime