core: include pending group link connections into chat previews on joining side (#1291)

2024-12-17 17:20:21 +01:00 · 2022-11-04 12:00:03 +04:00
parent 5243613045
commit d432dfba21
8 changed files with 33 additions and 26 deletions
@@ -391,10 +391,10 @@ instance ToJSON MsgContent where
    MCFile t -> J.pairs $ "type" .= MCFile_ <> "text" .= t

 instance ToField MsgContent where
-  toField = toField . encodeJson
+  toField = toField . encodeJSON

 instance FromField MsgContent where
-  fromField = fromTextField_ decodeJson
+  fromField = fromTextField_ decodeJSON

 data CMEventTag (e :: MsgEncoding) where
  XMsgNew_ :: CMEventTag 'Json