From 484e14a29655927f09363a90a44f2d402b829aad Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@nomath.org>
Date: Wed, 9 Oct 2013 13:09:41 +0200
Subject: [PATCH] Relax mtime test in alreadyCompiled

---
 compiler/Compiler.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/Compiler.hs b/compiler/Compiler.hs
index e84a9e3..9ab06ab 100644
--- a/compiler/Compiler.hs
+++ b/compiler/Compiler.hs
@@ -118,7 +118,7 @@ buildFile flags moduleNum numModules interfaces filePath =
             then return False
             else do tsrc <- getModificationTime filePath
                     tint <- getModificationTime (elmo flags filePath)
-                    return (tsrc < tint)
+                    return (tsrc <= tint)
 
       number :: String
       number = "[" ++ show moduleNum ++ " of " ++ show numModules ++ "]"