install files properly

1 files changed, 4 insertions, 0 deletions

diff --git a/Types.hs b/Types.hs
index 12088b6..8e53611 100644
--- a/Types.hs
+++ b/Types.hs
@@ -44,6 +44,8 @@ data SiteState =
     , _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
+    , _urlBase :: FilePath -- ^ "Root route" to prepend to all absolute links.
+    , _dumpFinalState :: Bool -- ^ Triggers printing out the structure when the processing finishes.
     }
   deriving (Show)
 
@@ -63,6 +65,8 @@ emptySiteState =
     , _defaultTemplate = "default.html"
     , _redirectTemplate = "redirect.html"
     , _tagTemplate = "tag.html"
+    , _urlBase = "/"
+    , _dumpFinalState = False
     }
 
 -- | Monad for running the site generator.