renders Graphs defined in Data.DotLang to SVG, JSON and XDOT.
let g = DiGraph [
node "a" [ Shape Diamond, Style Filled, FillColor red ],
node "b" [],
"a" ==> "b",
"a" ==> "d",
Subgraph [
node "d" []
]
]
let rendered = renderToSvg Dot grendered will be: