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

1 files changed, 2 insertions, 2 deletions

diff --git a/lib/syntax/tree.ml b/lib/syntax/tree.ml
index 34baae0..e70b66a 100644
--- a/lib/syntax/tree.ml
+++ b/lib/syntax/tree.ml
@@ -115,6 +115,6 @@ module Location = struct
   type instruction = Instruction.t'
   type t = S.pos * S.pos Ast.statement list
 
-  let location : S.pos -> instruction list -> t * Report.t list =
-   fun pos block -> ((pos, block), [])
+  let v _ = []
+  let location : S.pos -> instruction list -> t = fun pos block -> (pos, block)
 end