From 7aac6ccd5dfc635ad77bc74781ab06b0b1b9fe5e Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Fri, 18 Feb 2011 18:15:00 +0100
Subject: Add applyTemplateCompiler

---
 src/Hakyll/Web/Template.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/Hakyll/Web/Template.hs b/src/Hakyll/Web/Template.hs
index 1a399b3..5b38ba3 100644
--- a/src/Hakyll/Web/Template.hs
+++ b/src/Hakyll/Web/Template.hs
@@ -47,6 +47,7 @@ module Hakyll.Web.Template
     , applySelf
     , templateCompiler
     , templateCompilerWith
+    , applyTemplateCompiler
     ) where
 
 import Control.Arrow
@@ -102,3 +103,7 @@ templateCompilerWith settings =
             then readHamletTemplateWith settings string
             -- Hakyll template
             else readTemplate string
+
+applyTemplateCompiler :: Identifier                            -- ^ Template
+                      -> Compiler (Page String) (Page String)  -- ^ Compiler
+applyTemplateCompiler identifier = require identifier (flip applyTemplate)
-- 
cgit v1.2.3