Extracting the report from the Location checker is now in it’s own function

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