[project @ 1998-03-11 23:27:12 by simonpj]

[ghc-hetmet.git] / ghc / compiler / coreSyn / CoreUnfold.lhs

diff --git a/ghc/compiler/coreSyn/CoreUnfold.lhs b/ghc/compiler/coreSyn/CoreUnfold.lhs
index 8a1cb92..4c76eaf 100644 (file)
--- a/ghc/compiler/coreSyn/CoreUnfold.lhs
+++ b/ghc/compiler/coreSyn/CoreUnfold.lhs
@@ -518,9 +518,9 @@ certain that every use can be inlined.  So, notably, any ArgOccs
 rule this out.  Since ManyOcc doesn't record FunOcc/ArgOcc 
 
 \begin{code}
-inlineUnconditionally :: Bool -> Id -> BinderInfo -> Bool
+inlineUnconditionally :: Bool -> (Id,BinderInfo) -> Bool
 
-inlineUnconditionally ok_to_dup id occ_info
+inlineUnconditionally ok_to_dup (id, occ_info)
   |  idMustNotBeINLINEd id = False
 
   |  isOneFunOcc occ_info