lice :: (OutputableBndrId id)
                 => SplicePointName -> LHsExpr id -> SDoc
pprPendingSplice n e = angleBrackets (ppr n <> comma <+> ppr e)

pprSplice 
pprPendingSplice :: (OutputableBndrId id)
                 => SplicePointName -> LHsExpr id -> SDoc
pprPendingSplice n e = angleBrackets (ppr n <> comma <+> ppr e)
pprPendingSplice n e = angleBrackets (ppr n <> comma <+> ppr e)