diff options
Diffstat (limited to 'src/boot/me')
| -rw-r--r-- | src/boot/me/dead.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/me/dead.ml b/src/boot/me/dead.ml index 7ef4bf8e..a0b666b3 100644 --- a/src/boot/me/dead.ml +++ b/src/boot/me/dead.ml @@ -70,7 +70,7 @@ let dead_code_visitor | Ast.STMT_alt_type { Ast.alt_type_arms = arms; Ast.alt_type_else = alt_type_else } -> - let arm_ids = Array.map (fun { node = (_, _, block) } -> + let arm_ids = Array.map (fun { node = ((_, _), block) } -> block.id) arms in let else_ids = begin |