fix(compiler): Fix error location reporting of unbound modules and labels (#1577)

ospencer · web-flow · commit 5146b145468f · 2023-01-05T17:30:33.000-06:00
diff --git a/compiler/src/typed/env.re b/compiler/src/typed/env.re
@@ -2732,7 +2732,9 @@ let () =
     | Error(
         (
           Missing_module(loc, _, _) | Illegal_value_name(loc, _) |
-          Value_not_found_in_module(loc, _, _)
+          Value_not_found_in_module(loc, _, _) |
+          Unbound_module(loc, _) |
+          Unbound_label(loc, _)
         ) as err,
       )
         when loc != Location.dummy_loc =>

Original file line number	Diff line number	Diff line change
`@@ -2732,7 +2732,9 @@ let () =`
`2732`	`2732`	`\| Error(`
`2733`	`2733`	`(`
`2734`	`2734`	`Missing_module(loc, _, _) \| Illegal_value_name(loc, _) \|`
`2735`		`- Value_not_found_in_module(loc, _, _)`
	`2735`	`+ Value_not_found_in_module(loc, _, _) \|`
	`2736`	`+ Unbound_module(loc, _) \|`
	`2737`	`+ Unbound_label(loc, _)`
`2736`	`2738`	`) as err,`
`2737`	`2739`	`)`
`2738`	`2740`	`when loc != Location.dummy_loc =>`