check overwrites

1 files changed, 5 insertions, 0 deletions

diff --git a/Types.hs b/Types.hs
index 8e842f4..b46011e 100644
--- a/Types.hs
+++ b/Types.hs
@@ -34,11 +34,14 @@ data SiteState =
     , _htags :: M.Map [String] [FilePath]
     -- | List of installed files (prevents overwriting)
     , _installs :: S.Set FilePath
+    -- | List of installed pages (basically directories with index; prevents overwriting)
+    , _renders :: S.Set FilePath
     -- | Map of Mustache templates organized by template search path (within
     -- the template directory)
     , _templates :: M.Map FilePath Mu.Template
     , _outputDir :: FilePath -- ^ Directory for output
     , _defaultTemplate :: FilePath -- ^ Name of the default template
+    , _redirectTemplate :: FilePath -- ^ Name of the template for redirect pages
     }
   deriving (Show)
 
@@ -51,9 +54,11 @@ emptySiteState =
     , _redirects = M.empty
     , _htags = M.empty
     , _installs = S.empty
+    , _renders = S.empty
     , _templates = M.empty
     , _outputDir = "_site"
     , _defaultTemplate = "default.html"
+    , _redirectTemplate = "redirect.html"
     }
 
 -- | Monad for running the site generator.