From 427a74003804a29e48022a901e42e0f73311058f Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sun, 26 Dec 2010 11:57:19 +0100 Subject: Ignore unexisting files in obsolete check --- src/Hakyll/Core/Util/File.hs | 5 +++-- 1 file changed, 3 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 355eafb..45f3760 100644 --- a/src/Hakyll/Core/Util/File.hs +++ b/src/Hakyll/Core/Util/File.hs @@ -8,7 +8,7 @@ module Hakyll.Core.Util.File import System.FilePath (normalise, takeDirectory, ()) import System.Time (ClockTime) -import Control.Monad (forM) +import Control.Monad (forM, filterM) import System.Directory ( createDirectoryIfMissing, doesDirectoryExist , doesFileExist, getModificationTime , getDirectoryContents @@ -48,7 +48,8 @@ isObsolete :: ClockTime -- ^ The time to check. -> IO Bool isObsolete _ [] = return False isObsolete timeStamp depends = do - dependsModified <- mapM getModificationTime depends + depends' <- filterM doesFileExist depends + dependsModified <- mapM getModificationTime depends' return (timeStamp < maximum dependsModified) -- | Check if a file is obsolete, given it's dependencies. When the file does -- cgit v1.2.3