1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface CoreUnfold where
4 import CoreSyn(CoreExpr)
6 import Pretty(PrettyRep)
7 import SimplEnv(UnfoldingGuidance)
9 calcUnfoldingGuidance :: Bool -> Int -> CoreExpr Id Id -> UnfoldingGuidance
10 {-# GHC_PRAGMA _A_ 3 _U_ 222 _N_ _S_ "LLS" _N_ _N_ #-}
11 mentionedInUnfolding :: (a -> Id) -> CoreExpr a Id -> ([Id], [TyCon], [Class], Bool)
12 {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
13 pprCoreUnfolding :: CoreExpr Id Id -> Int -> Bool -> PrettyRep
14 {-# GHC_PRAGMA _A_ 1 _U_ 222 _N_ _S_ "S" _N_ _N_ #-}