diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2020-04-19 11:57:37 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-05-29 01:39:19 -0400 |
| commit | bbeb2389596df61ace5778ec580895ea32cc3c6f (patch) | |
| tree | fa5dff43ea17e54fa38fec6947c8299103c4460c | |
| parent | f10d11fa49fa9a7a506c4fdbdf86521c2a8d3495 (diff) | |
| download | haskell-bbeb2389596df61ace5778ec580895ea32cc3c6f.tar.gz | |
CoreToStg: Add Outputable ArgInfo instance
| -rw-r--r-- | compiler/GHC/CoreToStg/Prep.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/compiler/GHC/CoreToStg/Prep.hs b/compiler/GHC/CoreToStg/Prep.hs index 62fd46ff4c..32bbfff214 100644 --- a/compiler/GHC/CoreToStg/Prep.hs +++ b/compiler/GHC/CoreToStg/Prep.hs @@ -760,7 +760,13 @@ data ArgInfo = CpeApp CoreArg | CpeCast Coercion | CpeTick (Tickish Id) -{- Note [runRW arg] +instance Outputable ArgInfo where + ppr (CpeApp arg) = text "app" <+> ppr arg + ppr (CpeCast co) = text "cast" <+> ppr co + ppr (CpeTick tick) = text "tick" <+> ppr tick + +{- + Note [runRW arg] ~~~~~~~~~~~~~~~~~~~ If we got, say runRW# (case bot of {}) |