let node = node ~quote:true
let edge name1 name2 ?(attrs = []) fmt =
- fprintf fmt "@[<hov2>\"%s\" ->@ \"%s\"@ [" name1 name2;
+ fprintf fmt "@[<hov2>%s ->@ %s@ [" name1 name2;
attributes attrs fmt;
fprintf fmt "];@]@,"
let raw s fmt = pp_print_string fmt s