diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2021-02-08 20:30:20 +0100 |
|---|---|---|
| committer | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2021-02-08 20:30:40 +0100 |
| commit | 6c2001c236d67795e0017239b5f77313327afc31 (patch) | |
| tree | 443906d33347567fe95344d205a226890cbdc289 | |
| parent | b361c2fb4165159ceb811a0636508c287a3729eb (diff) | |
| download | haskell-6c2001c236d67795e0017239b5f77313327afc31.tar.gz | |
Temp lint fix
| -rw-r--r-- | compiler/GHC/HsToCore/Utils.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/GHC/HsToCore/Utils.hs b/compiler/GHC/HsToCore/Utils.hs index 7c452887f1..ac25ed17aa 100644 --- a/compiler/GHC/HsToCore/Utils.hs +++ b/compiler/GHC/HsToCore/Utils.hs @@ -372,11 +372,10 @@ mkDataConCase var ty alts@(alt1 :| _) Just (DCB boxer) -> do us <- newUniqueSupply let (rep_ids, binds) = initUs_ us (boxer ty_args args) - let rep_ids' = map (scaleVarBy (idMult var)) rep_ids -- Upholds the invariant that the binders of a case expression -- must be scaled by the case multiplicity. See Note [Case -- expression invariants] in CoreSyn. - return (Alt (DataAlt con) rep_ids' (mkLets binds body)) + return (Alt (DataAlt con) rep_ids (mkLets binds body)) mk_default :: MatchResult (Maybe CoreAlt) mk_default |