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,