This commit is contained in:
pdavidow
2023-08-17 11:35:57 -04:00
parent 12a1b083c0
commit d005d79d54

View File

@@ -130,7 +130,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) -- peg on left with i
g ((i,c), (_,d)) = (i,c,d) -- peg on left
markDeletesAndUnchangedChars :: Seq DiffedChar
markDeletesAndUnchangedChars = S.mapWithIndex f left