From 08022d9c19e03cddd78fb65c8fd08242908675b7 Mon Sep 17 00:00:00 2001
From: Harendra Kumar <harendra@composewell.com>
Date: Mon, 25 Jul 2022 00:18:55 +0530
Subject: [PATCH] Fix compareAge comparison ordering

---
 src/Streamly/Coreutils/FileTest.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Streamly/Coreutils/FileTest.hs b/src/Streamly/Coreutils/FileTest.hs
index 948147f..8c34a26 100644
--- 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