dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-05-25 09:54:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix constructor name for JSON encoding (#248)

Browse Source
This commit is contained in:
Evgeny Poberezkin
2022-02-01 07:16:02 +00:00
committed by GitHub
parent 2295f7a92b
commit 0b86402ce3
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/Messages.hs
+2 -2
View File
@@ -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,