[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / compiler / stranal / StrictAnal.hi

diff --git a/ghc/compiler/stranal/StrictAnal.hi b/ghc/compiler/stranal/StrictAnal.hi
index a3304ac..6ba8ea2 100644 (file)
--- a/ghc/compiler/stranal/StrictAnal.hi
+++ b/ghc/compiler/stranal/StrictAnal.hi
@@ -4,8 +4,6 @@ import CmdLineOpts(GlobalSwitch)
 import CoreSyn(CoreBinding)
 import Id(Id)
 import SplitUniq(SplitUniqSupply)
-saTopBinds :: Bool -> [CoreBinding Id Id] -> [CoreBinding Id Id]
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "LS" _N_ _N_ #-}
+saTopBinds :: (Bool, Bool) -> [CoreBinding Id Id] -> [CoreBinding Id Id]
 saWwTopBinds :: SplitUniqSupply -> (GlobalSwitch -> Bool) -> [CoreBinding Id Id] -> [CoreBinding Id Id]
-       {-# GHC_PRAGMA _A_ 3 _U_ 122 _N_ _S_ "LSL" _N_ _N_ #-}