diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-10 20:42:23 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-10 20:42:23 +0100 |
commit | 9aa11b26cdba009fe268f874c07f9037250bf2c6 (patch) | |
tree | 5c97d953049a1a916d86126db6a6646b3a9a8cd3 /src/Hakyll/Core/DirectedGraph/Dot.hs | |
parent | 9eda3425a3153e0f226cc0e32b38c82cc7c806ef (diff) | |
download | hakyll-9aa11b26cdba009fe268f874c07f9037250bf2c6.tar.gz |
Pick dependency analyzer from old develop branch
Diffstat (limited to 'src/Hakyll/Core/DirectedGraph/Dot.hs')
-rw-r--r-- | src/Hakyll/Core/DirectedGraph/Dot.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Hakyll/Core/DirectedGraph/Dot.hs b/src/Hakyll/Core/DirectedGraph/Dot.hs index 94e2444..06198e4 100644 --- a/src/Hakyll/Core/DirectedGraph/Dot.hs +++ b/src/Hakyll/Core/DirectedGraph/Dot.hs @@ -25,7 +25,7 @@ toDot showTag graph = unlines $ concat ] where showNode node = " \"" ++ showTag node ++ "\";" - showEdges node = map (showEdge node) $ S.toList $ neighbours node graph + showEdges node = map (showEdge node) $ neighbours node graph showEdge x y = " \"" ++ showTag x ++ "\" -> \"" ++ showTag y ++ "\";" |