X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FsimplCore%2FOccurAnal.lhs;h=3dca9a857db16d3f9555a0221dd6d51408c97184;hb=a51fe79ebcdcb8285573a18f12cade2101533419;hp=a37b5f16bddd97991e343d352f3d2175064d0f60;hpb=d2ce0f52d42edf32bb9f13796e6ba6edba8bd516;p=ghc-hetmet.git

diff --git a/compiler/simplCore/OccurAnal.lhs b/compiler/simplCore/OccurAnal.lhs
index a37b5f1..3dca9a8 100644
--- a/compiler/simplCore/OccurAnal.lhs
+++ b/compiler/simplCore/OccurAnal.lhs
@@ -537,7 +537,7 @@ reOrderCycle depth (bind : binds) pairs
         | isDFunId bndr = 9   -- Never choose a DFun as a loop breaker
 	   	     	      -- Note [DFuns should not be loop breakers]
 
-        | Just (inl_source, _) <- isInlineRule_maybe (idUnfolding bndr)
+        | Just (inl_source, _) <- isStableUnfolding_maybe (idUnfolding bndr)
 	= case inl_source of
 	     InlineWrapper {} -> 10  -- Note [INLINE pragmas]
 	     _other	      ->  3  -- Data structures are more important than this