tiny optimization

cbrt-x · Dec 21, 2023 · d3a8a79 · d3a8a79
1 parent 2f69163
commit d3a8a79
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/app/Sorts/New3WM.hs b/app/Sorts/New3WM.hs
@@ -13,7 +13,7 @@ sortBy cmp = mergeAll . sequences
     sequences xs = [xs]
 
     descending a as (b:bs)
-      | a `cmp` b == GT = descending b (a:as) bs
+      | a `cmp` b /= LT = descending b (a:as) bs
     descending a as bs  = (a:as): sequences bs
 
     ascending a as (b:bs)
@@ -33,7 +33,7 @@ sortBy cmp = mergeAll . sequences
     x `gt` y = x `cmp` y == GT
 
     merge as@(a:as') bs@(b:bs')
-      | a `gt` b = b : merge as  bs'
+      | a `gt` b   = b : merge as  bs'
       | otherwise  = a : merge as' bs
     merge [] bs   = bs
     merge as []   = as