SimpleUnfolding(..), FormSummary(..), noUnfolding )
import CoreUtils ( unTagBinders )
import Id ( externallyVisibleId, isDataCon, isWorkerId, isWrapperId,
- unfoldingUnfriendlyId, getIdInfo, nmbrId,
+ unfoldingUnfriendlyId, getIdInfo, nmbrId, pprId,
nullIdEnv, lookupIdEnv, IdEnv(..),
Id(..), GenId
)
import Literal ( Literal )
import MagicUFs ( mkMagicUnfoldingFun, MagicUnfoldingFun )
import OccurAnal ( occurAnalyseGlobalExpr )
-import Outputable ( Outputable(..) )
+import Outputable ( Outputable(..), PprStyle )
import PprEnv ( NmbrEnv )
-import PprStyle ( PprStyle )
import PprType ( pprParendGenType )
import PragmaInfo ( PragmaInfo )
import Pretty ( Doc )
isDataCon :: GenId ty -> Bool
isWorkerId :: GenId ty -> Bool
nmbrId :: Id -> NmbrEnv -> (NmbrEnv, Id)
+pprId :: Outputable ty => PprStyle -> GenId ty -> Doc
mkMagicUnfoldingFun :: Unique -> MagicUnfoldingFun