diff options
| author | Norman Ramsey <nr@cs.tufts.edu> | 2021-10-12 13:03:12 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-10-13 03:32:21 -0400 |
| commit | 19cd403bced51bc27a11f0257c25497154e86889 (patch) | |
| tree | c56db86ac7c6f9b89a38ba66ad979c08f3cee9f6 | |
| parent | 0aae1b4e7bc7398ea1ef6ed3084dfabf9cf80ce3 (diff) | |
| download | haskell-19cd403bced51bc27a11f0257c25497154e86889.tar.gz | |
Define and export Outputable instance for StgOp
| -rw-r--r-- | compiler/GHC/Stg/Syntax.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/GHC/Stg/Syntax.hs b/compiler/GHC/Stg/Syntax.hs index b0c32470f5..910101eceb 100644 --- a/compiler/GHC/Stg/Syntax.hs +++ b/compiler/GHC/Stg/Syntax.hs @@ -829,6 +829,9 @@ pprStgOp (StgPrimOp op) = ppr op pprStgOp (StgPrimCallOp op)= ppr op pprStgOp (StgFCallOp op _) = ppr op +instance Outputable StgOp where + ppr = pprStgOp + instance Outputable AltType where ppr PolyAlt = text "Polymorphic" ppr (MultiValAlt n) = text "MultiAlt" <+> ppr n |