-instance Outputable name => Outputable (UfCon name) where
- ppr UfDefault = text "DEFAULT"
- ppr (UfDataCon d) = ppr d
- ppr (UfPrimOp p) = ppr p
- ppr (UfCCallOp str is_dyn is_casm can_gc)
- = hcat [before, ptext str, after]
- where
- before = (if is_dyn then ptext SLIT("_dyn_") else empty) <>
- ptext (if is_casm then SLIT("_casm_ ``") else SLIT("_ccall_ "))
- after = if is_casm then text "'' " else space
+instance Outputable name => Outputable (UfConAlt name) where
+ ppr UfDefault = text "DEFAULT"
+ ppr (UfLitAlt l) = ppr l
+ ppr (UfLitLitAlt l ty) = ppr l
+ ppr (UfDataAlt d) = ppr d