X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fstranal%2FStrictAnal.hi;fp=ghc%2Fcompiler%2Fstranal%2FStrictAnal.hi;h=6ba8ea2354b475e2e88e0e767902c6e2486ac488;hb=10521d8418fd3a1cf32882718b5bd28992db36fd;hp=a3304aca3b4f3e221446b97256a8cf30b66d3a69;hpb=7fa716e248a1f11fa686965f57aebbb83b74fa7b;p=ghc-hetmet.git

diff --git a/ghc/compiler/stranal/StrictAnal.hi b/ghc/compiler/stranal/StrictAnal.hi
index a3304ac..6ba8ea2 100644
--- 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_ #-}