@@ -41,7 +41,7 @@ module Hakyll.Web.Template
4141 , templateCompiler
4242 , applyTemplate
4343 , requireApplyTemplate
44− , applySelf
44+ , applyAsTemplate
4545 , applyTemplateWith
4646 ) where
4747
@@ -103,10 +103,10 @@ requireApplyTemplate identifier context item = do
103103-- | It is also possible that you want to substitute @$key$@s within the body of
104104-- an item. This function does that by interpreting the item body as a template,
105105-- and then applying it to itself.
106−applySelf :: Context String -- ^ Context
107− -> Item String -- ^ Item and template
108− -> Compiler (Item String) -- ^ Resulting item
109−applySelf context item =
106+applyAsTemplate :: Context String -- ^ Context
107+ -> Item String -- ^ Item and template
108+ -> Compiler (Item String) -- ^ Resulting item
109+applyAsTemplate context item =
110110 let tpl = readTemplate $ itemBody item
111111 in applyTemplate tpl context item
112112