diff options
Diffstat (limited to 'lib/syntax/tree.ml')
| -rw-r--r-- | lib/syntax/tree.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/syntax/tree.ml b/lib/syntax/tree.ml index e5a60f4..fb6135f 100644 --- a/lib/syntax/tree.ml +++ b/lib/syntax/tree.ml @@ -125,10 +125,10 @@ module Instruction : end module Location = struct - type instruction = S.pos Ast.statement S.repr + type instruction = S.pos Ast.statement type t = S.pos * S.pos Ast.statement list - let location : S.pos -> instruction list -> t S.repr = + let location : S.pos -> instruction S.repr list -> t S.repr = fun pos block _report -> let block = List.map block ~f:(fun b -> fst @@ b []) in ((pos, block), []) |