From 4cb6f9241435fae7a23a7f9fbbdab99e65285eff Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Fri, 9 Nov 2012 18:13:51 +0100
Subject: Rewrite template application

---
 src/Hakyll/Web/Page/List.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Hakyll/Web/Page')

diff --git a/src/Hakyll/Web/Page/List.hs b/src/Hakyll/Web/Page/List.hs
index 1edb250..24721e7 100644
--- a/src/Hakyll/Web/Page/List.hs
+++ b/src/Hakyll/Web/Page/List.hs
@@ -55,8 +55,8 @@ pageListCompiler sort template =
 --
 applyTemplateToList :: Identifier Template
                     -> Compiler [Page String] [Page String]
-applyTemplateToList identifier =
-    require identifier $ \posts template -> map (applyTemplate template) posts
+applyTemplateToList identifier = require identifier $
+    \posts template -> map (applyTemplateToPage template) posts
 
 -- | Concatenate the bodies of a page list
 --
-- 
cgit v1.2.3