From 62b30440014ef15ec5730424f2e8cb23ba79b4d4 Mon Sep 17 00:00:00 2001
From: pdavidow <pdavidow@fastmail.fm>
Date: Wed, 16 Aug 2023 23:59:27 -0400
Subject: [PATCH] cleanup

---
 src/Simplex/Chat/MarkdownEditing.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Simplex/Chat/MarkdownEditing.hs b/src/Simplex/Chat/MarkdownEditing.hs
index 3f198a6224..4388c53502 100644
--- a/src/Simplex/Chat/MarkdownEditing.hs
+++ b/src/Simplex/Chat/MarkdownEditing.hs
@@ -125,7 +125,7 @@ findDiffs (LeftSide left) (RightSide right) = addInserts markDeletesAndUnchanged
             where x = if fL == fR then UnchangedFormat else ChangedToFormat fR
 
         g :: ((Int, FormattedChar), (Int, FormattedChar)) -> (Int, FormattedChar, FormattedChar)
-        g ((i,c), (_j,d)) = (i,c,d) -- i and _j should always be equal            
+        g ((i,c), (_j,d)) = (i,c,d) -- peg on left with i          
 
     markDeletesAndUnchangedChars :: Seq DiffedChar
     markDeletesAndUnchangedChars = S.mapWithIndex f left