From: simonmar <unknown>
Date: Thu, 19 Aug 2004 15:43:39 +0000 (+0000)
Subject: [project @ 2004-08-19 15:43:39 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1709
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=578d1788ceaae231a036d74777356b633c0368f6;hp=c6903c16003d9a48f116c45ecb6eb785975375f9;p=ghc-hetmet.git

[project @ 2004-08-19 15:43:39 by simonmar]
Build fix
---

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)