diff options
Diffstat (limited to 'lib/syntax/tree.ml')
| -rw-r--r-- | lib/syntax/tree.ml | 8 |
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 |