render tags, run head-first into template problems

1 files changed, 2 insertions, 0 deletions

diff --git a/Types.hs b/Types.hs
index 72f81c7..12088b6 100644
--- a/Types.hs
+++ b/Types.hs
@@ -43,6 +43,7 @@ data SiteState =
     , _assetDir :: FilePath -- ^ Directory for output
     , _defaultTemplate :: FilePath -- ^ Name of the default template
     , _redirectTemplate :: FilePath -- ^ Name of the template for redirect pages
+    , _tagTemplate :: FilePath -- ^ Name of the template for tag listing pages
     }
   deriving (Show)
 
@@ -61,6 +62,7 @@ emptySiteState =
     , _assetDir = "assets"
     , _defaultTemplate = "default.html"
     , _redirectTemplate = "redirect.html"
+    , _tagTemplate = "tag.html"
     }
 
 -- | Monad for running the site generator.