From 38290835769494b555edd092d79e9523ea854531 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Thu, 10 Feb 2011 22:55:03 +0100
Subject: Add defaultApplyTemplate compiler

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

(limited to 'src/Hakyll/Web.hs')

diff --git a/src/Hakyll/Web.hs b/src/Hakyll/Web.hs
index 92cdab5..73f818a 100644
--- a/src/Hakyll/Web.hs
+++ b/src/Hakyll/Web.hs
@@ -3,9 +3,12 @@
 module Hakyll.Web
     ( defaultPageRead
     , defaultTemplateRead
+    , defaultHamletTemplateRead
+    , defaultHamletTemplateReadWith
     , defaultRelativizeUrls
     , defaultCopyFile
     , defaultCompressCss
+    , defaultApplyTemplate
     ) where
 
 import Prelude hiding (id)
@@ -52,3 +55,7 @@ defaultCopyFile = getIdentifier >>^ CopyFile . toFilePath
 
 defaultCompressCss :: Compiler () String
 defaultCompressCss = getResourceString >>^ compressCss
+
+defaultApplyTemplate :: Identifier                            -- ^ Template
+                     -> Compiler (Page String) (Page String)  -- ^ Compiler
+defaultApplyTemplate identifier = require identifier (flip applyTemplate)
-- 
cgit v1.2.3