From 073a40996177960147ef91988910c6131ef29cb3 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 22 Jul 2002 13:30:43 +0000
Subject: [PATCH] [project @ 2002-07-22 13:30:43 by simonmar] Make the new
 mergesort stable.

---
 Data/List.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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