DGraphModel.Make
module G : sig ... end
type cluster = string
exception Multiple_layouts of (G.E.t * Graph__.XDot.edge_layout) list
class model : Graph__.XDot.Make(G).graph_layout -> G.t -> abstract_model
val from_graph : ?cmd:string -> ?tmp_name:string -> G.t -> model