diff options
Diffstat (limited to 'tools/resolver-visualize/Dot.hs')
| -rw-r--r-- | tools/resolver-visualize/Dot.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tools/resolver-visualize/Dot.hs b/tools/resolver-visualize/Dot.hs index 4072e67e..b0b056d1 100644 --- a/tools/resolver-visualize/Dot.hs +++ b/tools/resolver-visualize/Dot.hs @@ -8,7 +8,7 @@ module Dot( AttributeValue, Attributed, Name(), AttrValue(), name, attrValue, - node, edge, + node, edge, digraph, genNodes ) where @@ -85,6 +85,11 @@ edge from to = Edge { edgeFrom = from, edgeTo = to, edgeAttributes = Map.empty } +digraph :: [Node] -> [Edge] -> Digraph +digraph nodes edges = Digraph { digraphNodes = nodes, + digraphEdges = edges, + digraphAttributes = Map.empty } + -- | An infinite list of nodes with arbitrary names. genNodes = [node (name $ "node" ++ show n) | n <- [1..]] |