X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRenameBinds4.lhs;h=76943f958d0f2d361b02a1dd1881bf91c9d31711;hb=10521d8418fd3a1cf32882718b5bd28992db36fd;hp=fe4149539a1e571bcf3444bbc657e3eeff8985ce;hpb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RenameBinds4.lhs b/ghc/compiler/rename/RenameBinds4.lhs
index fe41495..76943f9 100644
--- a/ghc/compiler/rename/RenameBinds4.lhs
+++ b/ghc/compiler/rename/RenameBinds4.lhs
@@ -275,7 +275,8 @@ rnMonoBinds4 mbinds siglist
     case (inline_sigs_in_recursive_binds final_binds) of
       Nothing -> happy_answer
       Just names_n_locns ->
-	addErrRn4 (inlineInRecursiveBindsErr names_n_locns) `thenRn4_`
+-- SLPJ: sometimes want recursive INLINE for worker wrapper style stuff
+-- 	addErrRn4 (inlineInRecursiveBindsErr names_n_locns) `thenRn4_`
 	{-not so-}happy_answer
   where
     f :: (a,b, FreeVars, c,d) -> FreeVars -> FreeVars