- 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);
+ let quote_string = if quote then "\"" else "" in
+ fprintf fmt "@[<hov2>%s%s%s@ [" quote_string name quote_string;