From 659d1e1b7d4a3c4bd5a4df811ff6de095e4b1884 Mon Sep 17 00:00:00 2001
From: Patrick Walton <pcwalton@mimiga.net>
Date: Thu, 16 Sep 2010 16:20:00 -0700
Subject: Actually build the graph properly. Oops.

---
 src/boot/me/type.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/boot/me/type.ml b/src/boot/me/type.ml
index c9be05cc..a685b276 100644
--- 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
-- 
cgit v1.2.3