@@ -3,9 +3,12 @@
33module Hakyll.Web
44 ( defaultPageRead
55 , defaultTemplateRead
6+ , defaultHamletTemplateRead
7+ , defaultHamletTemplateReadWith
68 , defaultRelativizeUrls
79 , defaultCopyFile
810 , defaultCompressCss
11+ , defaultApplyTemplate
912 ) where
1013
1114import Prelude hiding (id)
@@ -52,3 +55,7 @@ defaultCopyFile = getIdentifier >>^ CopyFile . toFilePath
5255
5356defaultCompressCss :: Compiler () String
5457defaultCompressCss = getResourceString >>^ compressCss
58+
59+defaultApplyTemplate :: Identifier -- ^ Template
60+ -> Compiler (Page String) (Page String) -- ^ Compiler
61+defaultApplyTemplate identifier = require identifier (flip applyTemplate)