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 "#"]