diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-12-23 14:51:38 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-12-23 14:51:38 +0100 |
| commit | d1d28b9349549297f89ade80616eb7b14083e600 (patch) | |
| tree | 7736e7d00ce1368cd70ed2a7c0bd6d27d957eb2e /src/Hakyll/Core/DirectedGraph/DependencySolver.hs | |
| parent | eabc26812d5deb6ef818c20b2ed4c4d07e14feaa (diff) | |
| download | hakyll-d1d28b9349549297f89ade80616eb7b14083e600.tar.gz | |
Add tests for the directed graph modules
Diffstat (limited to 'src/Hakyll/Core/DirectedGraph/DependencySolver.hs')
| -rw-r--r-- | src/Hakyll/Core/DirectedGraph/DependencySolver.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Hakyll/Core/DirectedGraph/DependencySolver.hs b/src/Hakyll/Core/DirectedGraph/DependencySolver.hs index dce59e0..17a4b69 100644 --- a/src/Hakyll/Core/DirectedGraph/DependencySolver.hs +++ b/src/Hakyll/Core/DirectedGraph/DependencySolver.hs @@ -15,7 +15,6 @@ import qualified Data.Map as M import qualified Data.Set as S import Hakyll.Core.DirectedGraph -import qualified Hakyll.Core.DirectedGraph as DG import Hakyll.Core.DirectedGraph.Internal -- | Solve a dependency graph. This function returns an order to run the @@ -55,7 +54,7 @@ order temp stack set graph@(DirectedGraph graph') -- All dependencies for node are satisfied, we can return it and -- remove it from the graph [] -> order (tag : temp) stackTail (S.delete tag set) - (DG.filter (== tag) graph) + (DirectedGraph $ M.delete tag graph') -- There is at least one dependency left. We need to solve that -- one first... |