diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2017-04-11 15:36:30 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2017-04-12 16:16:19 +0100 |
| commit | ebb36b2c903abf20a955ea4e81f168b1ddf1a452 (patch) | |
| tree | c79d827b0a7baa451c94de2ff236a2e81d644375 | |
| parent | 8346334ef5ef3999c124a904f6915f75260eca9a (diff) | |
| download | haskell-ebb36b2c903abf20a955ea4e81f168b1ddf1a452.tar.gz | |
Add Outputable instance for ArityType
| -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 |