@@ -109,8 +109,12 @@ pageCompilerWith state options = pageCompilerWithPandoc state options id
109109pageCompilerWithPandoc :: ParserState -> WriterOptions
110110 -> (Pandoc -> Pandoc)
111111 -> Compiler Resource (Page String)
112−pageCompilerWithPandoc state options f =
113− pageCompilerWithFields state options f id
112+pageCompilerWithPandoc state options f = cached cacheName $
113+ readPageCompiler >>> addDefaultFields >>> arr applySelf
114+ >>> pageReadPandocWith state
115+ >>> arr (fmap (writePandocWith options . f))
116+ where
117+ cacheName = "Hakyll.Web.Page.pageCompilerWithPandoc"
114118
115119-- | This is another, even more advanced version of 'pageCompilerWithPandoc'.
116120-- This function allows you to provide an arrow which is applied before the
@@ -121,12 +125,10 @@ pageCompilerWithFields :: ParserState -> WriterOptions
121125 -> (Pandoc -> Pandoc)
122126 -> Compiler (Page String) (Page String)
123127 -> Compiler Resource (Page String)
124−pageCompilerWithFields state options f g = cached cacheName $
128+pageCompilerWithFields state options f g =
125129 readPageCompiler >>> addDefaultFields >>> g >>> arr applySelf
126130 >>> pageReadPandocWith state
127131 >>> arr (fmap (writePandocWith options . f))
128− where
129− cacheName = "Hakyll.Web.Page.pageCompilerWithFields"
130132
131133-- | Add a number of default metadata fields to a page. These fields include:
132134--