Account for absolute paths in `shouldIgnoreFile`

1 files changed, 4 insertions, 4 deletions

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