# 
# 
# patch "monotone.ml"
#  from [a6b9adef2eec7299cb99506809c5d8025edafbe7]
#    to [d89eed18743c8c661fc086f813fa268074d57459]
# 
============================================================
--- monotone.ml	a6b9adef2eec7299cb99506809c5d8025edafbe7
+++ monotone.ml	d89eed18743c8c661fc086f813fa268074d57459
@@ -205,14 +205,19 @@ let grab_tags mtn agraph =
       with Not_found -> agraph)
     agraph
 
+let children mtn id f init =
+  Automate.submit_sync mtn [ "children" ; id ]
+    +> Viz_misc.string_split '\n'
+    +> List.fold_left f init
+
 let agraph mtn query =
   let ids = get_ids mtn query in
   graph mtn 
     +> decode_graph (add_node ids) empty_agraph
     +> grab_tags mtn
+    +> Components.reconnect (children mtn)
     
 (* TODO: 
    - the "all_propagates" switch
    - branching edges
-   - spanning edges
  *)