From 1c4a4bc54ab8b2c7ad17e9942037a2ee8666458b Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Wed, 24 May 2023 19:31:54 +0200
Subject: check overwrites

---
 Types.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'Types.hs')

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.
-- 
cgit v1.2.3