module SimplCore ( core2core ) where
-import Ubiq{-uitous-}
+IMP_Ubiq(){-uitous-}
import AnalFBWW ( analFBWW )
import Bag ( isEmptyBag, foldBag )
SpecialiseData) -- specialisation data
core2core core_todos module_name ppr_style us local_tycons tycon_specs binds
- = _scc_ "Core2Core"
- if null core_todos then -- very rare, I suspect...
+ = if null core_todos then -- very rare, I suspect...
-- well, we still must do some renumbering
return (
(substCoreBindings nullIdEnv nullTyVarEnv binds us,
where
pp_det NoUnfoldingDetails = ppStr "_N_"
--LATER: pp_det (IWantToBeINLINEd _) = ppStr "INLINE"
- pp_det (GenForm _ _ expr guide)
+ pp_det (GenForm _ expr guide)
= ppAbove (ppr PprDebug guide) (ppr PprDebug expr)
pp_det other = ppStr "???"