Add applyJoinTemplateList, and a test for it

1 files changed, 18 insertions, 8 deletions

diff --git a/src/Hakyll/Web/Template/Internal.hs b/src/Hakyll/Web/Template/Internal.hs
index d0e0859..e264731 100644
--- a/src/Hakyll/Web/Template/Internal.hs
+++ b/src/Hakyll/Web/Template/Internal.hs
@@ -1,37 +1,47 @@
+--------------------------------------------------------------------------------
 -- | Module containing the template data structure
---
-{-# LANGUAGE GeneralizedNewtypeDeriving, DeriveDataTypeable #-}
+{-# LANGUAGE DeriveDataTypeable         #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
 module Hakyll.Web.Template.Internal
     ( Template (..)
     , TemplateElement (..)
     ) where
 
-import Control.Applicative ((<$>))
 
-import Data.Binary (Binary, get, getWord8, put, putWord8)
-import Data.Typeable (Typeable)
+--------------------------------------------------------------------------------
+import           Control.Applicative  ((<$>))
+import           Data.Binary          (Binary, get, getWord8, put, putWord8)
+import           Data.Typeable        (Typeable)
 
-import Hakyll.Core.Writable
 
+--------------------------------------------------------------------------------
+import           Hakyll.Core.Writable
+
+
+--------------------------------------------------------------------------------
 -- | Datatype used for template substitutions.
---
 newtype Template = Template
     { unTemplate :: [TemplateElement]
     }
     deriving (Show, Eq, Binary, Typeable)
 
+
+--------------------------------------------------------------------------------
 instance Writable Template where
     -- Writing a template is impossible
     write _ _ = return ()
 
+
+--------------------------------------------------------------------------------
 -- | Elements of a template.
---
 data TemplateElement
     = Chunk String
     | Key String
     | Escaped
     deriving (Show, Eq, Typeable)
 
+
+--------------------------------------------------------------------------------
 instance Binary TemplateElement where
     put (Chunk string)    = putWord8 0 >> put string
     put (Key key)  = putWord8 1 >> put key