let edge_attributes e = match G.E.label e with |PkgE.DirDepends -> [`Style `Solid] |PkgE.OrDepends -> [`Style `Dashed] |PkgE.Conflict -> [`Color 0xFF0000; `Style `Solid; `Label "#"]