From 687a7417233400eabbdbc907bb3a8985d933a89f Mon Sep 17 00:00:00 2001
From: JRoberts <8711996+jr-simplex@users.noreply.github.com>
Date: Sat, 5 Nov 2022 12:53:41 +0400
Subject: [PATCH] core: fix CReqClientData JSON encoding

---
 src/Simplex/Chat/Types.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Simplex/Chat/Types.hs b/src/Simplex/Chat/Types.hs
index dbd49e8f1f..b68c8a8485 100644
--- a/src/Simplex/Chat/Types.hs
+++ b/src/Simplex/Chat/Types.hs
@@ -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)