comby-tools/comby
1
1
Fork 0
mirror of https://github.com/comby-tools/comby.git synced 2024-09-11 13:25:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

fix: nested match offsets

Browse Source
This commit is contained in:
Rijnard van Tonder 2021-02-07 01:40:18 -07:00
parent 8d9e75fe36
commit 5ed7fa0f3c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/matchers/omega.ml
View File

@ -858,9 +858,9 @@ module Make (Syntax : Syntax.S) (Info : Info.S) = struct
>>| fun r ->
let range = {
match_start =
{ r.match_start with offset = ms.offset + r.match_start.offset - 1 } ;
{ r.match_start with offset = ms.offset + r.match_start.offset } ;
match_end =
{ r.match_end with offset = ms.offset + r.match_end.offset - 1 }
{ r.match_end with offset = ms.offset + r.match_end.offset }
}
in
Environment.update_range env var range
@ -871,9 +871,9 @@ module Make (Syntax : Syntax.S) (Info : Info.S) = struct
in
let range = {
match_start =
{ m.range.match_start with offset = ms.offset + m.range.match_start.offset - 1 } ;
{ m.range.match_start with offset = ms.offset + m.range.match_start.offset } ;
match_end =
{ m.range.match_end with offset = ms.offset + m.range.match_end.offset - 1 }
{ m.range.match_end with offset = ms.offset + m.range.match_end.offset }
}
in
{ m with range; environment })