Actually build the graph properly. Oops.

2010-09-16 16:20:00 -07:00 · 2010-09-16 16:20:00 -07:00 · 659d1e1b7d
commit 659d1e1b7d
parent 32103089d3
1 changed files with 1 additions and 1 deletions
--- a/src/boot/me/type.ml
+++ b/src/boot/me/type.ml
@ -1000,7 +1000,7 @@ let populate_tag_graph_node (cx:Semant.ctxt) (id:Common.opaque_id) (n:int) =
    function
        Ast.TY_tag { Ast.tag_id = id'; Ast.tag_args = tys } ->
          let tag_graph_node =
-            Hashtbl.find cx.Semant.ctxt_tag_containment id'
+            Hashtbl.find cx.Semant.ctxt_tag_containment id
          in
          Queue.add id' tag_graph_node.Semant.tgn_children;
          Array.iter add_ty tys