X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=inline;f=components%2Fmetadata%2FmetadataDeps.ml;h=b393dbb91a8f0f0a3ca74983758e386c02738c3a;hb=56117fb4613ccd685861ca762954169c059467c8;hp=91fa8004ca14ae49694c98209a751ffb765d2f2b;hpb=a08493538b6e678fd812356dd6965aa31bf1f769;p=helm.git

diff --git a/components/metadata/metadataDeps.ml b/components/metadata/metadataDeps.ml
index 91fa8004c..b393dbb91 100644
--- a/components/metadata/metadataDeps.ml
+++ b/components/metadata/metadataDeps.ml
@@ -132,7 +132,7 @@ struct
         (*eprintf "Node '%s' not found.\n" (UriManager.string_of_uri uri);*)
         assert false
     in
-    Pp.header ~graph_attrs:["rankdir", "LR"] ~node_attrs:global_node_attrs fmt;
+    Pp.header ~graph_type:"strict digraph" ~graph_attrs:["rankdir", "LR"] ~node_attrs:global_node_attrs fmt;
     let rec aux =
       function
         | [] -> ()