@@ -118,7 +118,7 @@ buildFile flags moduleNum numModules interfaces filePath =
118 then return False
118 then return False
119 else do tsrc <- getModificationTime filePath
119 else do tsrc <- getModificationTime filePath
120 tint <- getModificationTime (elmo flags filePath)
120 tint <- getModificationTime (elmo flags filePath)
121− return (tsrc < tint)
121+ return (tsrc <= tint)
123 number :: String
123 number :: String
124 number = "[" ++ show moduleNum ++ " of " ++ show numModules ++ "]"
124 number = "[" ++ show moduleNum ++ " of " ++ show numModules ++ "]"