diff options
Diffstat (limited to 'lib/syntax/nested_strings.ml')
-rw-r--r-- | lib/syntax/nested_strings.ml | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/syntax/nested_strings.ml b/lib/syntax/nested_strings.ml index fb056d6..9d4867c 100644 --- a/lib/syntax/nested_strings.ml +++ b/lib/syntax/nested_strings.ml @@ -99,11 +99,13 @@ struct end module Location = struct - type t = unit + type t = Report.t list type instruction = Instruction.t' - let location : S.pos -> instruction list -> t * Report.t list = + let v = Fun.id + + let location : S.pos -> instruction list -> t = fun pos intructions -> ignore pos; - ((), List.concat intructions) + List.concat intructions end |