[commit: ghc] wip/gitlab-registry, wip/over-poly-kinds: Don't do binder-swap for GlobalIds (0eb7cf0)

[git at git.haskell.org]

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

On branches: wip/gitlab-registry,wip/over-poly-kinds
Link       : http://ghc.haskell.org/trac/ghc/changeset/0eb7cf03da3783ca887d5de44d312cf6f3a4113c/ghc

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

commit 0eb7cf03da3783ca887d5de44d312cf6f3a4113c
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Thu Feb 21 09:34:01 2019 +0000

    Don't do binder-swap for GlobalIds
    
    This patch disables the binder-swap transformation in the
    (relatively rare) case when the scrutinee is a GlobalId.
    Reason: we are getting Lint errors so that GHC doesn't
    even validate.  Trac #16346.
    
    This is NOT the final solution -- it's just a stop-gap
    to get us running again.
    
    The final solution is in Trac #16296


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

0eb7cf03da3783ca887d5de44d312cf6f3a4113c
 compiler/simplCore/OccurAnal.hs | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/compiler/simplCore/OccurAnal.hs b/compiler/simplCore/OccurAnal.hs
index 5287817..c3414b1 100644
--- a/compiler/simplCore/OccurAnal.hs
+++ b/compiler/simplCore/OccurAnal.hs
@@ -2402,9 +2402,14 @@ mkAltEnv env@(OccEnv { occ_gbl_scrut = pe }) scrut case_bndr
       _               -> (env { occ_encl = OccVanilla }, Nothing)
 
   where
-    add_scrut v rhs = ( env { occ_encl = OccVanilla
-                            , occ_gbl_scrut = pe `extendVarSet` v }
-                      , Just (localise v, rhs) )
+    add_scrut v rhs
+      | isGlobalId v = (env { occ_encl = OccVanilla }, Nothing)
+      | otherwise    = ( env { occ_encl = OccVanilla
+                             , occ_gbl_scrut = pe `extendVarSet` v }
+                       , Just (localise v, rhs) )
+      -- ToDO: this isGlobalId stuff is a TEMPORARY FIX
+      --       to avoid the binder-swap for GlobalIds
+      --       See Trac #16346
 
     case_bndr' = Var (zapIdOccInfo case_bndr)
                    -- See Note [Zap case binders in proxy bindings]