From f859696b05cac0123e35fc41a829488084db6ed4 Mon Sep 17 00:00:00 2001 From: pdavidow Date: Wed, 16 Aug 2023 21:28:23 -0400 Subject: [PATCH] cleanup --- src/Simplex/Chat/MarkdownEditing.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Simplex/Chat/MarkdownEditing.hs b/src/Simplex/Chat/MarkdownEditing.hs index 2131f51133..eb31c3ebd9 100644 --- a/src/Simplex/Chat/MarkdownEditing.hs +++ b/src/Simplex/Chat/MarkdownEditing.hs @@ -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