core: keep chat item edit history (#2410)

2026-05-25 18:34:24 +00:00 · 2023-05-08 20:07:51 +04:00
parent 27762492d7
commit c87f4e68f7
14 changed files with 415 additions and 30 deletions
@@ -358,6 +358,9 @@ msgContentText = \case
  MCFile t -> t
  MCUnknown {text} -> text

+toMCText :: MsgContent -> MsgContent
+toMCText = MCText . msgContentText
+
 durationText :: Int -> Text
 durationText duration =
  let (mins, secs) = duration `divMod` 60 in T.pack $ "(" <> with0 mins <> ":" <> with0 secs <> ")"