diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-01-08 09:09:11 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-01-08 09:09:11 +0100 |
| commit | df8e221aef147ded6e8fe7331619913cc2f51513 (patch) | |
| tree | ed6f0c8c2e93cea975e5ee682ac87c1ad15b04c1 /src/Hakyll/Core/DirectedGraph/Internal.hs | |
| parent | d0939102bf26ed81b4e57dc96f44e5330913ab6f (diff) | |
| download | hakyll-df8e221aef147ded6e8fe7331619913cc2f51513.tar.gz | |
Fully qualified errors
Diffstat (limited to 'src/Hakyll/Core/DirectedGraph/Internal.hs')
| -rw-r--r-- | src/Hakyll/Core/DirectedGraph/Internal.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Hakyll/Core/DirectedGraph/Internal.hs b/src/Hakyll/Core/DirectedGraph/Internal.hs index 52a712d..bc9cd92 100644 --- a/src/Hakyll/Core/DirectedGraph/Internal.hs +++ b/src/Hakyll/Core/DirectedGraph/Internal.hs @@ -24,8 +24,11 @@ data Node a = Node -- appendNodes :: Ord a => Node a -> Node a -> Node a appendNodes (Node t1 n1) (Node t2 n2) - | t1 /= t2 = error "appendNodes: Appending differently tagged nodes" + | t1 /= t2 = error' | otherwise = Node t1 (n1 `S.union` n2) + where + error' = error $ "Hakyll.Core.DirectedGraph.Internal.appendNodes: " + ++ "Appending differently tagged nodes" -- | Type used to represent a directed graph -- |