[commit: ghc] master: Use pprUFM in pprStgLVs (7d58a97)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/7d58a97854bffd515a421d4cd2d7eeee8a99601e/ghc

>---------------------------------------------------------------

commit 7d58a97854bffd515a421d4cd2d7eeee8a99601e
Author: Bartosz Nitka <niteria at gmail.com>
Date:   Tue Jun 7 08:43:58 2016 -0700

    Use pprUFM in pprStgLVs


>---------------------------------------------------------------

7d58a97854bffd515a421d4cd2d7eeee8a99601e
 compiler/stgSyn/StgSyn.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/stgSyn/StgSyn.hs b/compiler/stgSyn/StgSyn.hs
index 87bbb94..f3a02c8 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