aboutsummaryrefslogtreecommitdiff
path: root/lib/syntax/nested_strings.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/syntax/nested_strings.ml')
-rw-r--r--lib/syntax/nested_strings.ml8
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