[project @ 2000-11-08 17:33:55 by simonmar]

Fix a test that was backwards.  Now we get unfoldings in the iface
files again.

diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs
index 5ec45f1..adf89db 100644 (file)
--- a/ghc/compiler/main/MkIface.lhs
+++ b/ghc/compiler/main/MkIface.lhs
@@ -447,7 +447,7 @@ mkFinalId codegen_ids is_rec id rhs
     bottoming_fn   = isBottomingStrictness (strictnessInfo core_idinfo)
 
     unfolding    = mkTopUnfolding rhs
-    rhs_is_small = neverUnfold unfolding
+    rhs_is_small = not (neverUnfold unfolding)
 
     unfold_info | show_unfold = unfolding
                | otherwise   = noUnfolding