From 2b68087b231940ad47e3e2f1a465a66c6c655f22 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Thu, 8 Jun 2023 20:54:07 +0200
Subject: source multiple directories at once

---
 site.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'site.hs')

diff --git a/site.hs b/site.hs
index 4efe2bd..45bc7b2 100644
--- a/site.hs
+++ b/site.hs
@@ -127,7 +127,7 @@ checkTarget fp = do
 
 -- | Prepend the root path to the given link
 rootUrl :: FilePath -> Site FilePath
-rootUrl fp = (</> dropWhile (=='/') fp) <$> use urlBase
+rootUrl fp = (</> dropWhile (== '/') fp) <$> use urlBase
 
 -- | Process a single link pointing out from a page.
 processLink :: FilePath -> FilePath -> Site String
@@ -324,7 +324,7 @@ main = do
   init <- Options.Applicative.execParser siteOptions
   flip runStateT init $ do
     installAssets
-    use sourceDir >>= sourcePages
+    use sourceDirs >>= traverse sourcePages
     sourceTags
     use templateDir >>= sourceTemplates
     use pages >>= traverse (uncurry installPage) . M.assocs
-- 
cgit v1.2.3