[commit: ghc] wip/spj-early-inline4: Stop uniques ending up in SPEC rule names (5cd8aab)

[git at git.haskell.org]

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

On branch  : wip/spj-early-inline4
Link       : http://ghc.haskell.org/trac/ghc/changeset/5cd8aabe7c0096b52147668a61610560001a564f/ghc

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

commit 5cd8aabe7c0096b52147668a61610560001a564f
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue Feb 14 13:33:36 2017 +0000

    Stop uniques ending up in SPEC rule names


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

5cd8aabe7c0096b52147668a61610560001a564f
 compiler/specialise/Specialise.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/compiler/specialise/Specialise.hs b/compiler/specialise/Specialise.hs
index 0090417..3f937c2 100644
--- a/compiler/specialise/Specialise.hs
+++ b/compiler/specialise/Specialise.hs
@@ -1293,10 +1293,11 @@ specCalls mb_mod env rules_for_me calls_for_me fn rhs
                            Just this_mod  -- Specialising imoprted fn
                                -> text "SPEC/" <> ppr this_mod
 
-                rule_name = mkFastString $ showSDocForUser dflags neverQualify $
-                            herald <+> ppr fn <+> hsep (map ppr_call_key_ty call_ts)
-                            -- This name ends up in interface files, so use showSDocForUser,
-                            -- otherwise uniques end up there, making builds
+                rule_name = mkFastString $ showSDoc dflags $
+                            herald <+> text (occNameString (getOccName fn))
+                                   <+> hsep (map ppr_call_key_ty call_ts)
+                            -- This name ends up in interface files, so use occNameString.
+                            -- Otherwise uniques end up there, making builds
                             -- less deterministic (See #4012 comment:61 ff)
 
                 rule_wout_eta = mkRule