[We want to inline generated wrappers even when user's inline PRAGMAs are disabled.
John Meacham <john@repetae.net>**20110123021358
 Ignore-this: bc2f5e23d780ae328980d3027f444137
] hunk ./src/E/Inline.hs 42
+    | getProperty prop_WRAPPER props = True
hunk ./src/E/Inline.hs 44
-    | otherwise  = fromList [prop_INLINE,prop_WRAPPER,prop_SUPERINLINE] `intersects` props
+    | otherwise  = fromList [prop_INLINE,prop_SUPERINLINE] `intersects` props
hunk ./src/E/SSimplify.hs 234
-        (lb,lbds) =  findLoopBreakers (\ ((comb,_),_) -> loopFunc (combHead comb) (combBody comb)) (const True) graph'
+        (lb,lbds) =  findLoopBreakers (\ ((comb,_),_) -> loopFunc (combHead comb) (combBody comb)) canBeLoopBreaker graph'
+        canBeLoopBreaker n = not $ getProperty prop_WRAPPER (fst $ fst $ n)
hunk ./src/E/SSimplify.hs 340
-    inlineForced = if useOccurance o == LoopBreaker then ForceNoinline else NotForced,
+    inlineForced = case () of
+      _ | useOccurance o == LoopBreaker -> ForceNoinline
+        | otherwise -> NotForced,