From 5a4ae4147313f52d50ff3bd9d74340a86175a5d9 Mon Sep 17 00:00:00 2001
From: Bergi <a.d.bergi@web.de>
Date: Wed, 21 Oct 2015 22:14:39 +0200
Subject: templateBodyCompiler compiles resource body only

and becomes the new default, instead of templateCompiler

fixes #378
---
 src/Hakyll/Web/Template.hs | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Hakyll/Web/Template.hs b/src/Hakyll/Web/Template.hs
index d28ce08..194949d 100644
--- a/src/Hakyll/Web/Template.hs
+++ b/src/Hakyll/Web/Template.hs
@@ -118,6 +118,7 @@
 {-# LANGUAGE ScopedTypeVariables #-}
 module Hakyll.Web.Template
     ( Template
+    , templateBodyCompiler
     , templateCompiler
     , applyTemplate
     , loadAndApplyTemplate
@@ -143,7 +144,14 @@ import           Hakyll.Web.Template.Internal
 
 
 --------------------------------------------------------------------------------
--- | Read a template.
+-- | Read a template, without metadata header
+templateBodyCompiler :: Compiler (Item Template)
+templateBodyCompiler = cached "Hakyll.Web.Template.templateBodyCompiler" $ do
+    item <- getResourceBody
+    return $ fmap readTemplate item
+
+--------------------------------------------------------------------------------
+-- | Read complete file contents as a template
 templateCompiler :: Compiler (Item Template)
 templateCompiler = cached "Hakyll.Web.Template.templateCompiler" $ do
     item <- getResourceString
-- 
cgit v1.2.3