Relax mtime test in alreadyCompiled
commit484e14a29655927f09363a90a44f2d402b829aad
authorAlexander Foremny <aforemny@nomath.org>
dateWed 9 Oct 2013, 13:09 (13 years ago)
parent6b28928
compiler/Compiler.hs+1−1
@@ -118,7 +118,7 @@ buildFile flags moduleNum numModules interfaces filePath =
118118 then return False
119119 else do tsrc <- getModificationTime filePath
120120 tint <- getModificationTime (elmo flags filePath)
121− return (tsrc < tint)
121+ return (tsrc <= tint)
122122
123123 number :: String
124124 number = "[" ++ show moduleNum ++ " of " ++ show numModules ++ "]"