From 089670629bc0f84c74fef520772caec842d2a549 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Thu, 13 Dec 2012 19:47:19 +0100
Subject: applySelf -> applyAsTemplate
---
src/Hakyll/Web/Template.hs | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
(limited to 'src')
diff --git a/src/Hakyll/Web/Template.hs b/src/Hakyll/Web/Template.hs
index 3eaae6b..b793652 100644
--- a/src/Hakyll/Web/Template.hs
+++ b/src/Hakyll/Web/Template.hs
@@ -41,7 +41,7 @@ module Hakyll.Web.Template
, templateCompiler
, applyTemplate
, requireApplyTemplate
- , applySelf
+ , applyAsTemplate
, applyTemplateWith
) where
@@ -103,10 +103,10 @@ requireApplyTemplate identifier context item = do
-- | It is also possible that you want to substitute @$key$@s within the body of
-- an item. This function does that by interpreting the item body as a template,
-- and then applying it to itself.
-applySelf :: Context String -- ^ Context
- -> Item String -- ^ Item and template
- -> Compiler (Item String) -- ^ Resulting item
-applySelf context item =
+applyAsTemplate :: Context String -- ^ Context
+ -> Item String -- ^ Item and template
+ -> Compiler (Item String) -- ^ Resulting item
+applyAsTemplate context item =
let tpl = readTemplate $ itemBody item
in applyTemplate tpl context item
--
cgit v1.2.3