diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-10 22:55:03 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-10 22:55:03 +0100 |
| commit | 38290835769494b555edd092d79e9523ea854531 (patch) | |
| tree | f2fa936c70dd573c3fead95a1b2e2a369ff3dbaf | |
| parent | c03607e08751c3ce0e7c4cb70f9168f7f0237663 (diff) | |
| download | hakyll-38290835769494b555edd092d79e9523ea854531.tar.gz | |
Add defaultApplyTemplate compiler
| -rw-r--r-- | src/Hakyll/Web.hs | 7 |
1 files changed, 7 insertions, 0 deletions
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) |