From bd4077f04cfa5d97ac75d294c02817caf3ed6e2d Mon Sep 17 00:00:00 2001 From: pdavidow Date: Wed, 16 Aug 2023 10:55:17 -0400 Subject: [PATCH] cleanup --- src/Simplex/Chat/MarkdownEditing.hs | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/src/Simplex/Chat/MarkdownEditing.hs b/src/Simplex/Chat/MarkdownEditing.hs index b4bd51f233..7ed0ef7cec 100644 --- a/src/Simplex/Chat/MarkdownEditing.hs +++ b/src/Simplex/Chat/MarkdownEditing.hs @@ -94,17 +94,20 @@ indicesFromEdits = F.foldl' f (DeleteIndicies S.empty, InsertIndicies S.empty) findPlainDiffs :: LeftSide T.Text -> RightSide T.Text -> Seq DiffedPlainChar findPlainDiffs (LeftSide left) (RightSide right) = f <$> diffs where - diffs = findDiffs (LeftSide $ toFormattedCharsFromText left) (RightSide $ toFormattedCharsFromText right) + diffs = findDiffs + (LeftSide $ toFormattedCharsFromText left ) + (RightSide $ toFormattedCharsFromText right) toFormattedCharsFromText :: T.Text -> Seq FormattedChar toFormattedCharsFromText = fmap (`FormattedChar` Nothing) . S.fromList . T.unpack f :: DiffedChar -> DiffedPlainChar f (DiffedChar (FormattedChar c _) diffStatus) = DiffedPlainChar c diffStatusPlain - where diffStatusPlain = case diffStatus of - UnchangedChar _ -> UnchangedP - Inserted -> InsertedP - Deleted -> DeletedP + where + diffStatusPlain = case diffStatus of + UnchangedChar _ -> UnchangedP + Inserted -> InsertedP + Deleted -> DeletedP findDiffs :: LeftSide (Seq FormattedChar) -> RightSide (Seq FormattedChar) -> Seq DiffedChar