[project @ 2004-03-11 10:00:23 by simonmar]

[ghc-hetmet.git] / ghc / compiler / types / InstEnv.lhs

diff --git a/ghc/compiler/types/InstEnv.lhs b/ghc/compiler/types/InstEnv.lhs
index c197c05..cc75492 100644 (file)
--- a/ghc/compiler/types/InstEnv.lhs
+++ b/ghc/compiler/types/InstEnv.lhs
@@ -314,7 +314,7 @@ insert_overlapping new_item (item:items)
        -- Keep new one
   | old_beats_new = item : items
        -- Keep old one
-  | otherwise            = item : insert_overlapping new_item items
+  | otherwise    = item : insert_overlapping new_item items
        -- Keep both
   where
     new_beats_old = new_item `beats` item