From d2e913f42434841c584b97ae9d5417ff2737c0ce Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Tue, 13 Nov 2012 15:10:01 +0100 Subject: Work a bit on new runtime --- src/Hakyll/Core/Util/File.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Hakyll/Core/Util') diff --git a/src/Hakyll/Core/Util/File.hs b/src/Hakyll/Core/Util/File.hs index 160ee6f..5889664 100644 --- a/src/Hakyll/Core/Util/File.hs +++ b/src/Hakyll/Core/Util/File.hs @@ -47,8 +47,8 @@ getRecursiveContents includeDirs topdir = do -- | Check if a file is meant for Hakyll internal use, i.e. if it is located in -- the destination or store directory -- -isFileInternal :: HakyllConfiguration -- ^ Configuration - -> FilePath -- ^ File to check +isFileInternal :: Configuration -- ^ Configuration + -> FilePath -- ^ File to check -> Bool -- ^ If the given file is internal isFileInternal configuration file = any (`isPrefixOf` split file) dirs -- cgit v1.2.3