diff options
| -rw-r--r-- | src/Hakyll/Web/Page.hs | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/Hakyll/Web/Page.hs b/src/Hakyll/Web/Page.hs index b7cf6fb..6e24153 100644 --- a/src/Hakyll/Web/Page.hs +++ b/src/Hakyll/Web/Page.hs @@ -109,8 +109,12 @@ pageCompilerWith state options = pageCompilerWithPandoc state options id pageCompilerWithPandoc :: ParserState -> WriterOptions -> (Pandoc -> Pandoc) -> Compiler Resource (Page String) -pageCompilerWithPandoc state options f = - pageCompilerWithFields state options f id +pageCompilerWithPandoc state options f = cached cacheName $ + readPageCompiler >>> addDefaultFields >>> arr applySelf + >>> pageReadPandocWith state + >>> arr (fmap (writePandocWith options . f)) + where + cacheName = "Hakyll.Web.Page.pageCompilerWithPandoc" -- | This is another, even more advanced version of 'pageCompilerWithPandoc'. -- This function allows you to provide an arrow which is applied before the @@ -121,12 +125,10 @@ pageCompilerWithFields :: ParserState -> WriterOptions -> (Pandoc -> Pandoc) -> Compiler (Page String) (Page String) -> Compiler Resource (Page String) -pageCompilerWithFields state options f g = cached cacheName $ +pageCompilerWithFields state options f g = readPageCompiler >>> addDefaultFields >>> g >>> arr applySelf >>> pageReadPandocWith state >>> arr (fmap (writePandocWith options . f)) - where - cacheName = "Hakyll.Web.Page.pageCompilerWithFields" -- | Add a number of default metadata fields to a page. These fields include: -- |