blade/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2024-12-17 17:20:21 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
pdavidow
2023-08-16 21:28:23 -04:00
parent 67bac7c7f9
commit f859696b05
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/MarkdownEditing.hs
+4 -4
View File
@@ -130,10 +130,10 @@ findDiffs (LeftSide left) (RightSide right) = addInserts markDeletesAndUnchanged
markDeletesAndUnchangedChars :: Seq DiffedChar
markDeletesAndUnchangedChars = S.mapWithIndex f left
where
f :: Int -> FormattedChar -> DiffedChar
f i x = DiffedChar x $
if i `elem` deleteIndicies then Deleted
else UnchangedChar $ unchangedChars M.! i -- should never error
f :: Int -> FormattedChar -> DiffedChar
f i x = DiffedChar x $
if i `elem` deleteIndicies then Deleted
else UnchangedChar $ unchangedChars M.! i -- should never error
addInserts :: Seq DiffedChar -> Seq DiffedChar
addInserts base = F.foldr f base edits -- start from end and work backwards, hence foldr