diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-12-26 11:57:19 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-12-26 11:57:19 +0100 |
commit | 427a74003804a29e48022a901e42e0f73311058f (patch) | |
tree | b002e0d141b4276906a97bebbe82a41358dac131 /src/Hakyll/Core/Util/File.hs | |
parent | 53d179a7da994bd45eff1363269c6e1cb533dfd7 (diff) | |
download | hakyll-427a74003804a29e48022a901e42e0f73311058f.tar.gz |
Ignore unexisting files in obsolete check
Diffstat (limited to 'src/Hakyll/Core/Util/File.hs')
-rw-r--r-- | src/Hakyll/Core/Util/File.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 |