[Git][ghc/ghc][master] Force argument in setIdMult (#18925)

[Marge Bot]

 Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC


Commits:
5506f134 by Krzysztof Gogolewski at 2020-11-11T03:21:14-05:00
Force argument in setIdMult (#18925)

- - - - -


1 changed file:

- compiler/GHC/Types/Var.hs


Changes:

=====================================
compiler/GHC/Types/Var.hs
=====================================
@@ -869,8 +869,8 @@ updateIdTypeAndMultM f id@(Id { varType = ty
 updateIdTypeAndMultM _ other = pprPanic "updateIdTypeAndMultM" (ppr other)
 
 setIdMult :: Id -> Mult -> Id
-setIdMult id r | isId id = id { varMult = r }
-               | otherwise = pprPanic "setIdMult" (ppr id <+> ppr r)
+setIdMult id !r | isId id = id { varMult = r }
+                | otherwise = pprPanic "setIdMult" (ppr id <+> ppr r)
 
 {-
 ************************************************************************



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/5506f1342e51bad71a7525ddad0650d1ac63afeb

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/5506f1342e51bad71a7525ddad0650d1ac63afeb
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20201111/b4ee6a81/attachment.html>