wrath/shaniqua-plugins
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed a bug in 'hasChanged'.

Browse Source
This commit is contained in:
lemmih 2005-05-26 10:01:28 +00:00
parent ecef36e749
commit 36fa0c6433
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/plugins/System/Plugins/Load.hs
View File

@ -372,16 +372,18 @@ hasChanged = hasChanged' ["hs","lhs"]
hasChanged' :: [String] -> Module -> IO Bool hasChanged' :: [String] -> Module -> IO Bool
hasChanged' suffices m@(Module {path = p}) hasChanged' suffices m@(Module {path = p})
= do mbFile <- findFile suffices p = do modFile <- doesFileExist p
mbFile <- findFile suffices p
case mbFile of case mbFile of
Nothing -> return False Just f | modFile
Just f -> do srcT <- getModificationTime f -> do srcT <- getModificationTime f
objT <- getModificationTime p objT <- getModificationTime p
if srcT > objT if srcT > objT
then return True then return True
else do deps <- getModuleDeps m else do deps <- getModuleDeps m
depsStatus <- mapM (hasChanged' suffices) deps depsStatus <- mapM (hasChanged' suffices) deps
return (or depsStatus) return (or depsStatus)
_ -> return False
where findFile :: [String] -> FilePath -> IO (Maybe FilePath) where findFile :: [String] -> FilePath -> IO (Maybe FilePath)
findFile [] _ = return Nothing findFile [] _ = return Nothing
findFile (ext:exts) file findFile (ext:exts) file