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
|
* while origIdx considers index to return
|
||||||
* once buffer is done deleting. *)
|
* once buffer is done deleting. *)
|
||||||
deleteRightFromHere
|
deleteRightFromHere
|
||||||
( curIdx + String.size newLeftStringsHd
|
( curIdx + String.size newString
|
||||||
, curLine + Vector.length newLeftLinesHd
|
, curLine + Vector.length newLines
|
||||||
, nextIdx
|
, nextIdx
|
||||||
, finish
|
, finish
|
||||||
, newLeftStringsHd :: leftStringsTl
|
, newLeftStringsHd :: leftStringsTl
|
||||||
|
|||||||
Reference in New Issue
Block a user