fix regression introduced by previous commit (we need to be more careful when consing to 'leftStringsTl/rightStringsTl' than when consing to 'leftStrings/rightStrings', because our usage of consing the 'tl' variant in some places implies we have modified the head of that respective list
This commit is contained in:
@@ -1347,8 +1347,8 @@ struct
|
||||
* while origIdx considers index to return
|
||||
* once buffer is done deleting. *)
|
||||
deleteRightFromHere
|
||||
( curIdx + String.size newLeftStringsHd
|
||||
, curLine + Vector.length newLeftLinesHd
|
||||
( curIdx + String.size newString
|
||||
, curLine + Vector.length newLines
|
||||
, nextIdx
|
||||
, finish
|
||||
, newLeftStringsHd :: leftStringsTl
|
||||
|
||||
Reference in New Issue
Block a user