-\begin{code}
-instance Outputable b => Outputable (Bind b) where
- ppr bind = ppr_bind pprGenericEnv bind
-
-instance Outputable b => Outputable (Expr b) where
- ppr expr = ppr_expr pprGenericEnv expr
-
-pprGenericEnv :: Outputable b => PprEnv b
-pprGenericEnv = initCoreEnv (\site -> ppr)
-\end{code}
-
-%************************************************************************
-%* *
-\subsection{Instance declarations for Core printing}
-%* *
-%************************************************************************
-
-
-\begin{code}
-initCoreEnv pbdr
- = initPprEnv
- (Just ppr) -- Constants
- (Just pprCostCentreCore) -- Cost centres
-
- (Just ppr) -- tyvar occs
- (Just pprParendType) -- types
-
- (Just pbdr) (Just ppr) -- value vars
- -- Use pprIdBndr for this last one as a debugging device.
-\end{code}