diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-15 22:39:20 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-15 22:40:16 +0100 |
commit | 28a30caef08ab786bfa8b75d75f155a4e62b7280 (patch) | |
tree | 4a17678d817c7910d21be6c5e5fbdfc1d341fbe8 /src/Hakyll/Web/Page.hs | |
parent | bc4fef81b7143d3b2035f3bd28fe89bea8dbc30d (diff) | |
download | hakyll-28a30caef08ab786bfa8b75d75f155a4e62b7280.tar.gz |
defaultTemplateRead → templateCompiler
Diffstat (limited to 'src/Hakyll/Web/Page.hs')
-rw-r--r-- | src/Hakyll/Web/Page.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/Hakyll/Web/Page.hs b/src/Hakyll/Web/Page.hs index 30578e9..c61008c 100644 --- a/src/Hakyll/Web/Page.hs +++ b/src/Hakyll/Web/Page.hs @@ -52,7 +52,7 @@ module Hakyll.Web.Page , fromMap , toMap , readPageCompiler - , defaultPageCompiler + , pageCompiler , addDefaultFields , sortByBaseName ) where @@ -97,8 +97,10 @@ toMap (Page m b) = M.insert "body" b m readPageCompiler :: Compiler Resource (Page String) readPageCompiler = getResourceString >>^ readPage -defaultPageCompiler :: Compiler Resource (Page String) -defaultPageCompiler = cached "Hakyll.Web.Page.defaultPageCompiler" $ +-- | Read a page, add default fields, substitute fields and render using pandoc +-- +pageCompiler :: Compiler Resource (Page String) +pageCompiler = cached "Hakyll.Web.Page.pageCompiler" $ readPageCompiler >>> addDefaultFields >>> arr applySelf >>> pageRenderPandoc -- | Add a number of default metadata fields to a page. These fields include: |