@@ -47,6 +47,7 @@ module Hakyll.Web.Template
4747 , applySelf
4848 , templateCompiler
4949 , templateCompilerWith
50+ , applyTemplateCompiler
5051 ) where
5152
5253import Control.Arrow
@@ -102,3 +103,7 @@ templateCompilerWith settings =
102103 then readHamletTemplateWith settings string
103104 -- Hakyll template
104105 else readTemplate string
106+
107+applyTemplateCompiler :: Identifier -- ^ Template
108+ -> Compiler (Page String) (Page String) -- ^ Compiler
109+applyTemplateCompiler identifier = require identifier (flip applyTemplate)