From 578d1788ceaae231a036d74777356b633c0368f6 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 19 Aug 2004 15:43:39 +0000
Subject: [PATCH] [project @ 2004-08-19 15:43:39 by simonmar] Build fix

---
 ghc/compiler/ghci/ByteCodeGen.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/ghci/ByteCodeGen.lhs b/ghc/compiler/ghci/ByteCodeGen.lhs
index 485a285..cad4789 100644
--- a/ghc/compiler/ghci/ByteCodeGen.lhs
+++ b/ghc/compiler/ghci/ByteCodeGen.lhs
@@ -1130,7 +1130,7 @@ mkMultiBranch :: Maybe Int	-- # datacons in tycon, if alg alt
               -> BcM BCInstrList
 mkMultiBranch maybe_ncons raw_ways
    = let d_way     = filter (isNoDiscr.fst) raw_ways
-         notd_ways = naturalMergeSortLe 
+         notd_ways = sortLe 
                         (\w1 w2 -> leAlt (fst w1) (fst w2))
                         (filter (not.isNoDiscr.fst) raw_ways)
 
-- 
1.7.10.4