From 5e4adaecb232231d87a6bb4dd0b041daf86a4cdb Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Wed, 3 Apr 2013 12:02:06 +0200 Subject: Account for absolute paths in `shouldIgnoreFile` --- src/Hakyll/Core/Provider/Internal.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Hakyll/Core/Provider') diff --git a/src/Hakyll/Core/Provider/Internal.hs b/src/Hakyll/Core/Provider/Internal.hs index 5c3d07e..583c665 100644 --- a/src/Hakyll/Core/Provider/Internal.hs +++ b/src/Hakyll/Core/Provider/Internal.hs @@ -103,10 +103,10 @@ data Provider = Provider -------------------------------------------------------------------------------- -- | Create a resource provider -newProvider :: Store -- ^ Store to use - -> (FilePath -> Bool) -- ^ Should we ignore this file? - -> FilePath -- ^ Search directory - -> IO Provider -- ^ Resulting provider +newProvider :: Store -- ^ Store to use + -> (FilePath -> IO Bool) -- ^ Should we ignore this file? + -> FilePath -- ^ Search directory + -> IO Provider -- ^ Resulting provider newProvider store ignore directory = do list <- map fromFilePath <$> getRecursiveContents ignore directory let universe = S.fromList list -- cgit v1.2.3