diff options
| -rw-r--r-- | compiler/coreSyn/CoreArity.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/coreSyn/CoreArity.hs b/compiler/coreSyn/CoreArity.hs index 88c3a7abaf..dd70772835 100644 --- a/compiler/coreSyn/CoreArity.hs +++ b/compiler/coreSyn/CoreArity.hs @@ -484,6 +484,10 @@ data ArityType = ATop [OneShotInfo] | ABot Arity -- There is always an explicit lambda -- to justify the [OneShot], or the Arity +instance Outputable ArityType where + ppr (ATop os) = text "ATop" <> parens (ppr (length os)) + ppr (ABot n) = text "ABot" <> parens (ppr n) + vanillaArityType :: ArityType vanillaArityType = ATop [] -- Totally uninformative |