df8e221 · hakyll · git.iko.soy

src/Hakyll/Core/CompiledItem.hs+1−1

compare with master

unifiedsplit

@@ -36,4 +36,4 @@ unCompiledItem :: (Binary a, Typeable a, Writable a)

36 -> a

37unCompiledItem (CompiledItem x) = case cast x of

38 Just x' -> x'

39− Nothing -> error "unCompiledItem: Unsupported type"

39+ Nothing -> error "Hakyll.Core.CompiledItem.unCompiledItem: Unsupported type"

src/Hakyll/Core/DirectedGraph/DependencySolver.hs+4−1

@@ -60,8 +60,11 @@ order temp stack set graph@(DirectedGraph graph')

60 -- one first...

61 (dep : _) -> if (nodeTag dep) `S.member` set

62 -- The dependency is already in our stack - cycle detected!

63− then error "order: Cycle detected!" -- TODO: Dump cycle

63+ then cycleError

64 -- Continue with the dependency

65 else order temp (dep : node : stackTail)

66 (S.insert (nodeTag dep) set)

67 graph

68+ where

69+ cycleError = error $ "Hakyll.Core.DirectedGraph.DependencySolver.order: "

70+ ++ "Cycle detected!" -- TODO: Dump cycle

src/Hakyll/Core/DirectedGraph/Internal.hs+4−1

@@ -24,8 +24,11 @@ data Node a = Node

24--

25appendNodes :: Ord a => Node a -> Node a -> Node a

26appendNodes (Node t1 n1) (Node t2 n2)

27− | t1 /= t2 = error "appendNodes: Appending differently tagged nodes"

27+ | t1 /= t2 = error'

28 | otherwise = Node t1 (n1 `S.union` n2)

29+ where

30+ error' = error $ "Hakyll.Core.DirectedGraph.Internal.appendNodes: "

31+ ++ "Appending differently tagged nodes"

29

32

30-- | Type used to represent a directed graph

33-- | Type used to represent a directed graph

31--

34--

src/Hakyll/Web/Pandoc.hs+1−1

@@ -50,7 +50,7 @@ readPandocWith state fileType' = case fileType' of

50 Markdown -> P.readMarkdown state

51 Rst -> P.readRST state

52 t -> error $

53− "readPandoc: I don't know how to read " ++ show t

53+ "Hakyll.Web.readPandocWith: I don't know how to read " ++ show t

54

55-- | Write a document (as HTML) using pandoc, with the default options

56--

src/Hakyll/Web/Template/Internal.hs+2−1

@@ -41,4 +41,5 @@ instance Binary TemplateElement where

41 0 -> Chunk <$> get

42 1 -> Identifier <$> get

43 2 -> Escaped <$> get

44+ _ -> error $ "Hakyll.Web.Template.Internal: "

44− _ -> error "Error reading cached template"

45+ ++ "Error reading cached template"