exa/reploy
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fix the path splitting issue for directory exclusion

Browse source
This commit is contained in:
Mirek Kratochvil 2023-06-22 13:09:02 +02:00
parent 2ea84315db
commit 2c792ff967
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
site.hs
View file

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