git.iko.soy/hakyll
on master help sign in
Add defaultApplyTemplate compiler
3829083Jasper Van der Jeugt
src/Hakyll/Web.hs+7
compare with master
unifiedsplit
@@ -3,9 +3,12 @@
3module Hakyll.Web
3module Hakyll.Web
4 ( defaultPageRead
4 ( defaultPageRead
5 , defaultTemplateRead
5 , defaultTemplateRead
6+ , defaultHamletTemplateRead
7+ , defaultHamletTemplateReadWith
6 , defaultRelativizeUrls
8 , defaultRelativizeUrls
7 , defaultCopyFile
9 , defaultCopyFile
8 , defaultCompressCss
10 , defaultCompressCss
11+ , defaultApplyTemplate
9 ) where
12 ) where
10
13
11import Prelude hiding (id)
14import Prelude hiding (id)
@@ -52,3 +55,7 @@ defaultCopyFile = getIdentifier >>^ CopyFile . toFilePath
52
55
53defaultCompressCss :: Compiler () String
56defaultCompressCss :: Compiler () String
54defaultCompressCss = getResourceString >>^ compressCss
57defaultCompressCss = getResourceString >>^ compressCss
58+
59+defaultApplyTemplate :: Identifier -- ^ Template
60+ -> Compiler (Page String) (Page String) -- ^ Compiler
61+defaultApplyTemplate identifier = require identifier (flip applyTemplate)