From 2c792ff967cccb359ad986d7879107b5ad2c0733 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <miroslav.kratochvil@uni.lu>
Date: Thu, 22 Jun 2023 13:09:02 +0200
Subject: [PATCH] fix the path splitting issue for directory exclusion

---
 site.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/site.hs b/site.hs
index d60486e..972ae10 100644
--- a/site.hs
+++ b/site.hs
@@ -56,7 +56,7 @@ isSourceablePath :: FilePath -> Site Bool
 isSourceablePath fp = do
   notSource <- use notSourceDirs
   pure $ (&&) <$> hasSuffix ".md" . last <*> not . any (`elem` notSource) . init $
-    splitPath fp
+    splitDirectories fp
 
 -- | Load the pages from a directory and add them to `pages`.
 sourcePages :: FilePath -> Site ()