IntenseFinance/simplex-chat
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
pdavidow 2023-08-16 23:40:24 -04:00
parent f859696b05
commit 827bff3cb4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Simplex/Chat/MarkdownEditing.hs
View File

@ -114,11 +114,11 @@ findDiffs (LeftSide left) (RightSide right) = addInserts markDeletesAndUnchanged
leftWithoutDeletes :: Seq (Int, FormattedChar) -- indexed in original left
leftWithoutDeletes = S.filter (\(i, _) -> i `notElem` deleteIndicies) leftZ
where leftZ = S.zip (S.fromList [0 .. S.length left]) left
where leftZ = S.zip (S.fromList [0 .. S.length left - 1]) left
rightWithoutInserts :: Seq (Int, FormattedChar) -- indexed in original right
rightWithoutInserts = S.filter (\(i, _) -> i `notElem` insertIndicies) rightZ
where rightZ = S.zip (S.fromList [0 .. S.length right]) right
where rightZ = S.zip (S.fromList [0 .. S.length right - 1]) right
f :: M.Map Int DiffFormatStatus -> (Int, FormattedChar, FormattedChar) -> M.Map Int DiffFormatStatus
f acc (i, FormattedChar _ fL, FormattedChar _ fR) = M.insert i x acc