Fix compareAge comparison ordering

composewell · Jul 25, 2022 · 08022d9 · 08022d9
1 parent eefe965
commit 08022d9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Streamly/Coreutils/FileTest.hs b/src/Streamly/Coreutils/FileTest.hs
@@ -482,7 +482,7 @@ compareAge getFileTime cmp ageSec = do
     ts <- getLocalTime
     let now = timespecToPosixTime ts
         age = doubleToPosixTime ageSec
-    return $ compareTime getFileTime cmp (now - age)
+    return $ compareTime getFileTime (flip cmp) (now - age)
 
     where