ghc/compiler/specialise/Specialise.hi

   1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
   2 interface Specialise where
   3 import Bag(Bag)
   4 import CmdLineOpts(GlobalSwitch)
   5 import CoreSyn(CoreBinding)
   6 import FiniteMap(FiniteMap)
   7 import Id(Id)
   8 import Maybes(Labda)
   9 import SplitUniq(SplitUniqSupply)
  10 import TyCon(TyCon)
  11 import UniType(UniType)
  12 data Bag a      {-# GHC_PRAGMA EmptyBag | UnitBag a | TwoBags (Bag a) (Bag a) | ListOfBags [Bag a] #-}
  13 data FiniteMap a b      {-# GHC_PRAGMA EmptyFM | Branch a b Int# (FiniteMap a b) (FiniteMap a b) #-}
  14 data SpecialiseData   = SpecData Bool Bool [TyCon] [TyCon] (FiniteMap TyCon [[Labda UniType]]) (Bag (Id, [Labda UniType])) (Bag (Id, [Labda UniType])) (Bag (TyCon, [Labda UniType]))
  15 initSpecData :: [TyCon] -> FiniteMap TyCon [[Labda UniType]] -> SpecialiseData
  16         {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
  17 specProgram :: (GlobalSwitch -> Bool) -> SplitUniqSupply -> [CoreBinding Id Id] -> SpecialiseData -> ([CoreBinding Id Id], SpecialiseData)
  18         {-# GHC_PRAGMA _A_ 4 _U_ 2121 _N_ _S_ "LU(ALL)LU(EALALLLL)" {_A_ 5 _U_ 22221 _N_ _N_ _N_ _N_} _N_ _N_ #-}
  19