From 462859f4fbd52097fe0b3c9b6385674eedd1f2c9 Mon Sep 17 00:00:00 2001
From: rand00 <oth.rand@gmail.com>
Date: Fri, 18 Mar 2022 13:16:26 +0100
Subject: [PATCH] Builder-viz: Changed sharing-stats to be based on direct deps
 instead of transitive

---
 bin/visualizations/builder_viz.ml | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/bin/visualizations/builder_viz.ml b/bin/visualizations/builder_viz.ml
index ea30406..5219bd3 100644
--- a/bin/visualizations/builder_viz.ml
+++ b/bin/visualizations/builder_viz.ml
@@ -75,11 +75,10 @@ let print_dependencies_html file =
   let module G = Opam_graph in
   let switch = read_file file in
   let data = OpamFile.SwitchExport.read_from_string switch in
-  let transitive = false in
-  let graph = G.Ui.dependencies ~transitive data in
+  let graph = G.Ui.dependencies ~transitive:false data in
   let sharing_stats =
     data
-    |> G.dependencies ~transitive:true
+    |> G.dependencies ~transitive:false
     |> G.calc_sharing_stats in
   let override_css = {|
     .deps-svg-wrap {