From 0b86402ce39508eef26a72d242b96bca740a3677 Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>
Date: Tue, 1 Feb 2022 07:16:02 +0000
Subject: [PATCH] fix constructor name for JSON encoding (#248)

---
 src/Simplex/Chat/Messages.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Simplex/Chat/Messages.hs b/src/Simplex/Chat/Messages.hs
index 58f8ddf77a..1b31d8c4d2 100644
--- a/src/Simplex/Chat/Messages.hs
+++ b/src/Simplex/Chat/Messages.hs
@@ -53,7 +53,7 @@ deriving instance Show (ChatInfo c)
 data JSONChatInfo
   = JCInfoDirect {contact :: Contact}
   | JCInfoGroup {groupInfo :: GroupInfo}
-  | JCIInfoContactRequest {contactRequest :: UserContactRequest}
+  | JCInfoContactRequest {contactRequest :: UserContactRequest}
   deriving (Generic)
 
 instance ToJSON JSONChatInfo where
@@ -68,7 +68,7 @@ jsonChatInfo :: ChatInfo c -> JSONChatInfo
 jsonChatInfo = \case
   DirectChat c -> JCInfoDirect c
   GroupChat g -> JCInfoGroup g
-  ContactRequest g -> JCIInfoContactRequest g
+  ContactRequest g -> JCInfoContactRequest g
 
 data ChatItem (c :: ChatType) (d :: MsgDirection) = ChatItem
   { chatDir :: CIDirection c d,