[project @ 2000-05-15 15:34:03 by keithw]

[ghc-hetmet.git] / ghc / compiler / usageSP / UsageSPInf.lhs

diff --git a/ghc/compiler/usageSP/UsageSPInf.lhs b/ghc/compiler/usageSP/UsageSPInf.lhs
index ee9be6e..d0f062e 100644 (file)
--- a/ghc/compiler/usageSP/UsageSPInf.lhs
+++ b/ghc/compiler/usageSP/UsageSPInf.lhs
@@ -18,6 +18,7 @@ import UsageSPLint
 import UConSet
 
 import CoreSyn
+import Rules            ( RuleBase )
 import TypeRep          ( Type(..), TyNote(..) ) -- friend
 import Type             ( UsageAnn(..),
                           applyTy, applyTys,
@@ -90,9 +91,11 @@ monad.
 \begin{code}
 doUsageSPInf :: UniqSupply
              -> [CoreBind]
-             -> IO [CoreBind]
+             -> RuleBase
+             -> IO ([CoreBind], Maybe RuleBase)
 
-doUsageSPInf us binds = do
+doUsageSPInf us binds local_rules
+                      = do
                            let binds1      = doUnAnnotBinds binds
 
                            dumpIfSet opt_D_dump_usagesp "UsageSPInf unannot'd" $
@@ -118,7 +121,7 @@ doUsageSPInf us binds = do
                            dumpIfSet opt_D_dump_usagesp "UsageSPInf" $
                              pprCoreBindings binds3
 
-                           return binds3
+                           return (binds3, Nothing)
 \end{code}
 
 ======================================================================