[project @ 2002-07-22 13:30:43 by simonmar]

Make the new mergesort stable.

diff --git a/Data/List.hs b/Data/List.hs
index 1531a3e..a6bff9b 100644 (file)
--- a/Data/List.hs
+++ b/Data/List.hs
@@ -527,8 +527,8 @@ merge cmp xs [] = xs
 merge cmp [] ys = ys
 merge cmp (x:xs) (y:ys)
  = case x `cmp` y of
-       LT -> x : merge cmp    xs (y:ys)
-       _  -> y : merge cmp (x:xs)   ys
+        GT -> y : merge cmp (x:xs)   ys
+        _  -> x : merge cmp    xs (y:ys)
 
 wrap :: a -> [a]
 wrap x = [x]