diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-03-05 16:18:52 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-03-05 16:18:52 +0100 |
commit | 034c659b91e49f9b4d30cc731fe8972ab36a50ae (patch) | |
tree | 7573ffada81c4b9e854d5392e95655dea2874f1d /src/Text/Hakyll/Render.hs | |
parent | 45eb74655f60f9f5f13c6b6b52adada2265e80ee (diff) | |
download | hakyll-034c659b91e49f9b4d30cc731fe8972ab36a50ae.tar.gz |
Aliased `RenderAction () Context` to Renderable, custompages now have correct dependencies.
Diffstat (limited to 'src/Text/Hakyll/Render.hs')
-rw-r--r-- | src/Text/Hakyll/Render.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Hakyll/Render.hs b/src/Text/Hakyll/Render.hs index 3c62fe2..9a95374 100644 --- a/src/Text/Hakyll/Render.hs +++ b/src/Text/Hakyll/Render.hs @@ -56,7 +56,7 @@ renderWith manipulation templatePath = RenderAction -- * Concatenates the result. -- renderAndConcat :: [FilePath] -- ^ Templates to apply on every renderable. - -> [RenderAction () Context] -- ^ Renderables to render. + -> [Renderable] -- ^ Renderables to render. -> RenderAction () String renderAndConcat = renderAndConcatWith id @@ -65,7 +65,7 @@ renderAndConcat = renderAndConcatWith id -- apply on every @Renderable@. renderAndConcatWith :: ContextManipulation -> [FilePath] - -> [RenderAction () Context] + -> [Renderable] -> RenderAction () String renderAndConcatWith manipulation templatePaths renderables = RenderAction { actionDependencies = renders >>= actionDependencies @@ -91,14 +91,14 @@ renderAndConcatWith manipulation templatePaths renderables = RenderAction -- -- This code will first render @warning.html@ using @templates/notice.html@, -- and will then render the result with @templates/default.html@. -renderChain :: [FilePath] -> RenderAction () Context -> Hakyll () +renderChain :: [FilePath] -> Renderable -> Hakyll () renderChain = renderChainWith id -- | A more custom render chain that allows you to specify a -- @ContextManipulation@ which to apply on the context when it is read first. renderChainWith :: ContextManipulation -> [FilePath] - -> RenderAction () Context + -> Renderable -> Hakyll () renderChainWith manipulation templatePaths initial = runRenderActionIfNeeded renderChainWith' |