- let quote_string = if quote then "\"" else "" in
- fprintf fmt "@[<hov2>%s%s%s@ [" quote_string name quote_string;
+ fprintf fmt "@[<hov2>%s@ [" (quote_string quote name);
+ attributes attrs fmt;
+ fprintf fmt "];@]@,"
+
+ let edge ~quote name1 name2 ?(attrs = []) fmt =
+ fprintf fmt "@[<hov2>%s ->@ %s@ ["
+ (quote_string quote name1) (quote_string quote name2);