Commit 7d58a978 authored by niteria's avatar niteria
Browse files

Use pprUFM in pprStgLVs

parent 7008515b
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment