dandri/simplex-chat
1
0 Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-10-28 20:42:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

core: fix CReqClientData JSON encoding

Browse Source
This commit is contained in:
JRoberts committed 2022-11-05 12:53:41 +04:00
1 parent 54ab4e979a
commit 687a741723
1 file changed
+3 -3
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/Types.hs
+3 -3
View File
@@ -575,11 +575,11 @@ data CReqClientData = CRGroupData {groupLinkId :: GroupLinkId}
deriving (Generic)
instance ToJSON CReqClientData where
toJSON = J.genericToJSON . taggedObjectJSON $ dropPrefix "CD"
toEncoding = J.genericToEncoding . taggedObjectJSON $ dropPrefix "CD"
toJSON = J.genericToJSON . taggedObjectJSON $ dropPrefix "CR"
toEncoding = J.genericToEncoding . taggedObjectJSON $ dropPrefix "CR"
instance FromJSON CReqClientData where
parseJSON = J.genericParseJSON . taggedObjectJSON $ dropPrefix "CD"
parseJSON = J.genericParseJSON . taggedObjectJSON $ dropPrefix "CR"
newtype GroupLinkId = GroupLinkId {unGroupLinkId :: ByteString} -- used to identify invitation via group link
deriving (Eq, Show)