fix the path splitting issue for directory exclusion

1 files changed, 1 insertions, 1 deletions

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 ()