From df8e221aef147ded6e8fe7331619913cc2f51513 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sat, 8 Jan 2011 09:09:11 +0100 Subject: Fully qualified errors --- src/Hakyll/Core/DirectedGraph/DependencySolver.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/Hakyll/Core/DirectedGraph/DependencySolver.hs') diff --git a/src/Hakyll/Core/DirectedGraph/DependencySolver.hs b/src/Hakyll/Core/DirectedGraph/DependencySolver.hs index 17a4b69..214211b 100644 --- a/src/Hakyll/Core/DirectedGraph/DependencySolver.hs +++ b/src/Hakyll/Core/DirectedGraph/DependencySolver.hs @@ -60,8 +60,11 @@ order temp stack set graph@(DirectedGraph graph') -- one first... (dep : _) -> if (nodeTag dep) `S.member` set -- The dependency is already in our stack - cycle detected! - then error "order: Cycle detected!" -- TODO: Dump cycle + then cycleError -- Continue with the dependency else order temp (dep : node : stackTail) (S.insert (nodeTag dep) set) graph + where + cycleError = error $ "Hakyll.Core.DirectedGraph.DependencySolver.order: " + ++ "Cycle detected!" -- TODO: Dump cycle -- cgit v1.2.3