ghc/compiler/stgSyn/StgLint.hi

   1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
   2 interface StgLint where
   3 import CmdLineOpts(GlobalSwitch)
   4 import Id(Id, IdDetails)
   5 import IdInfo(IdInfo)
   6 import Pretty(PprStyle)
   7 import StgSyn(PlainStgBinding(..), StgBinding, StgRhs)
   8 import UniType(UniType)
   9 import Unique(Unique)
  10 data Id         {-# GHC_PRAGMA Id Unique UniType IdInfo IdDetails #-}
  11 data PprStyle   {-# GHC_PRAGMA PprForUser | PprDebug | PprShowAll | PprInterface (GlobalSwitch -> Bool) | PprForC (GlobalSwitch -> Bool) | PprUnfolding (GlobalSwitch -> Bool) | PprForAsm (GlobalSwitch -> Bool) Bool ([Char] -> [Char]) #-}
  12 type PlainStgBinding = StgBinding Id Id
  13 data StgBinding a b     {-# GHC_PRAGMA StgNonRec a (StgRhs a b) | StgRec [(a, StgRhs a b)] #-}
  14 lintStgBindings :: PprStyle -> [Char] -> [StgBinding Id Id] -> [StgBinding Id Id]
  15         {-# GHC_PRAGMA _A_ 3 _U_ 212 _N_ _S_ "LLS" _N_ _N_ #-}
  16