From: simonmar <unknown>
Date: Mon, 22 Jul 2002 13:30:43 +0000 (+0000)
Subject: [project @ 2002-07-22 13:30:43 by simonmar]
X-Git-Tag: nhc98-1-18-release~936
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=073a40996177960147ef91988910c6131ef29cb3;p=ghc-base.git

[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
--- 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]