Version 0.1.2.

[guestfs-browser.git] / filetree_ops.ml

diff --git a/filetree_ops.ml b/filetree_ops.ml
index 93ecb62..5946a81 100644 (file)
--- a/filetree_ops.ml
+++ b/filetree_ops.ml
@@ -19,8 +19,8 @@
 open Printf
 
 open Utils
-
 open Filetree_type
+open Filetree_markup
 
 (* Get the basename of a file, using path conventions which are valid
  * for libguestfs.  So [Filename.basename] won't necessarily work
@@ -160,7 +160,8 @@ let rec disk_usage ({ model = model } as t) path () =
   if not (has_child_node_equals t row content) then (
     (* Create the child node first. *)
     let row = model#insert ~parent:row 0 in
-    store_hdata t row { state=IsLeaf; content=content; visited=false };
+    let hdata = { state=IsLeaf; content=content; visited=false; hiveh=None } in
+    store_hdata t row hdata;
     model#set ~row ~column:t.name_col "<i>Calculating disk usage ...</i>";
 
     Slave.disk_usage src pathname (when_disk_usage t path pathname)
@@ -200,7 +201,9 @@ let display_inspection_data ({ model = model } as t) path () =
       let content = Info "inspection_data" in
       if not (has_child_node_equals t row content) then (
         let row = model#insert ~parent:row 0 in
-        store_hdata t row { state=IsLeaf; content=content; visited=false };
+        let hdata =
+          { state=IsLeaf; content=content; visited=false; hiveh=None } in
+        store_hdata t row hdata;
 
         (* XXX UGHLEE *)
         let data =