diff options
| author | Bartosz Nitka <niteria@gmail.com> | 2016-06-07 08:43:58 -0700 |
|---|---|---|
| committer | Bartosz Nitka <niteria@gmail.com> | 2016-06-07 08:45:05 -0700 |
| commit | 7d58a97854bffd515a421d4cd2d7eeee8a99601e (patch) | |
| tree | 55c30a2487bff3d544eb454bc9c48de68a4b65a7 /compiler/stgSyn | |
| parent | 7008515be5863df46f7863ccb8b74df004ccf73e (diff) | |
| download | haskell-7d58a97854bffd515a421d4cd2d7eeee8a99601e.tar.gz | |
Use pprUFM in pprStgLVs
Diffstat (limited to 'compiler/stgSyn')
| -rw-r--r-- | compiler/stgSyn/StgSyn.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/stgSyn/StgSyn.hs b/compiler/stgSyn/StgSyn.hs index 87bbb94166..f3a02c83aa 100644 --- a/compiler/stgSyn/StgSyn.hs +++ b/compiler/stgSyn/StgSyn.hs @@ -65,6 +65,7 @@ import Type ( Type ) import Type ( typePrimRep ) import UniqSet import Unique ( Unique ) +import UniqFM import Util {- @@ -760,7 +761,7 @@ pprStgLVs lvs if userStyle sty || isEmptyUniqSet lvs then empty else - hcat [text "{-lvs:", interpp'SP (uniqSetToList lvs), text "-}"] + hcat [text "{-lvs:", pprUFM lvs interpp'SP, text "-}"] pprStgRhs :: (OutputableBndr bndr, Outputable bdee, Ord bdee) => GenStgRhs bndr bdee -> SDoc |