X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fmain%2FTidyPgm.lhs;h=5c78927c7de8ddca8bda0a270b08a6e9b8b90077;hb=9d0c8f842e35dde3d570580cf62a32779f66a6de;hp=60fd7261ee074f336cd3b99ad1d884be8a7b7520;hpb=97d5e75a63afc329096d94c74760415c586f7cec;p=ghc-hetmet.git

diff --git a/compiler/main/TidyPgm.lhs b/compiler/main/TidyPgm.lhs
index 60fd726..5c78927 100644
--- a/compiler/main/TidyPgm.lhs
+++ b/compiler/main/TidyPgm.lhs
@@ -561,7 +561,7 @@ addExternal (id,rhs) needed
 		     spec_ids
 
     idinfo	   = idInfo id
-    dont_inline	   = isNeverActive (inlinePragInfo idinfo)
+    dont_inline	   = isNeverActive (inlinePragmaActivation (inlinePragInfo idinfo))
     loop_breaker   = isNonRuleLoopBreaker (occInfo idinfo)
     bottoming_fn   = isBottomingSig (newStrictnessInfo idinfo `orElse` topSig)
     spec_ids	   = specInfoFreeVars (specInfo idinfo)