diff options
| author | simonmar <unknown> | 2004-08-19 15:43:39 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2004-08-19 15:43:39 +0000 |
| commit | 578d1788ceaae231a036d74777356b633c0368f6 (patch) | |
| tree | 28460d7e808e498a870078697f28d01e8624a2e1 | |
| parent | c6903c16003d9a48f116c45ecb6eb785975375f9 (diff) | |
| download | haskell-578d1788ceaae231a036d74777356b633c0368f6.tar.gz | |
[project @ 2004-08-19 15:43:39 by simonmar]
Build fix
| -rw-r--r-- | ghc/compiler/ghci/ByteCodeGen.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/ghci/ByteCodeGen.lhs b/ghc/compiler/ghci/ByteCodeGen.lhs index 485a2851ce..cad4789cf7 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) |