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

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

[project @ 2000-11-08 17:33:55 by simonmar]
Fix a test that was backwards. Now we get unfoldings in the iface files again.
4680bc56 · Simon Marlow · 36cef271 · 4680bc56
Commit 4680bc56 authored 24 years ago by Simon Marlow
--- 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