diff options
| author | Gabor Greif <ggreif@gmail.com> | 2018-02-08 15:54:20 +0100 |
|---|---|---|
| committer | Krzysztof Gogolewski <krz.gogolewski@gmail.com> | 2018-11-17 13:52:26 +0100 |
| commit | 798c943781e14b7111431d3c7193c93fcc5ffa3e (patch) | |
| tree | 968b4119bb8e2fc481b8f08a51a98ef7bca00122 /compiler/cmm | |
| parent | 33f572589d1c40c77d642c79f9cfdd6d84fa7477 (diff) | |
| download | haskell-798c943781e14b7111431d3c7193c93fcc5ffa3e.tar.gz | |
Minor refactoring
PR: https://github.com/ghc/ghc/pull/223/
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/CLabel.hs | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs index dbb92e5f41..3f7c97fbf6 100644 --- a/compiler/cmm/CLabel.hs +++ b/compiler/cmm/CLabel.hs @@ -1316,20 +1316,20 @@ pprCLbl (PicBaseLabel {}) = panic "pprCLbl PicBaseLabel" pprCLbl (DeadStripPreventer {}) = panic "pprCLbl DeadStripPreventer" ppIdFlavor :: IdLabelInfo -> SDoc -ppIdFlavor x = pp_cSEP <> +ppIdFlavor x = pp_cSEP <> text (case x of - Closure -> text "closure" - InfoTable -> text "info" - LocalInfoTable -> text "info" - Entry -> text "entry" - LocalEntry -> text "entry" - Slow -> text "slow" - RednCounts -> text "ct" - ConEntry -> text "con_entry" - ConInfoTable -> text "con_info" - ClosureTable -> text "closure_tbl" - Bytes -> text "bytes" - BlockInfoTable -> text "info" + Closure -> "closure" + InfoTable -> "info" + LocalInfoTable -> "info" + Entry -> "entry" + LocalEntry -> "entry" + Slow -> "slow" + RednCounts -> "ct" + ConEntry -> "con_entry" + ConInfoTable -> "con_info" + ClosureTable -> "closure_tbl" + Bytes -> "bytes" + BlockInfoTable -> "info" ) |