Used the type S.repr in Syntax/Location.t

1 files changed, 4 insertions, 4 deletions

diff --git a/lib/syntax/tree.ml b/lib/syntax/tree.ml
index db8abd9..e5a60f4 100644
--- a/lib/syntax/tree.ml
+++ b/lib/syntax/tree.ml
@@ -126,10 +126,10 @@ end
 
 module Location = struct
   type instruction = S.pos Ast.statement S.repr
-  type repr = S.pos * S.pos Ast.statement list
+  type t = S.pos * S.pos Ast.statement list
 
-  let location : S.pos -> instruction list -> repr =
-   fun pos block ->
+  let location : S.pos -> instruction list -> t S.repr =
+   fun pos block _report ->
     let block = List.map block ~f:(fun b -> fst @@ b []) in
-    (pos, block)
+    ((pos, block), [])
 end