diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2020-11-06 10:21:30 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2020-11-30 18:56:35 -0500 |
| commit | 7cb92decf49c8b76092f5dc33a885e6b300a9b7e (patch) | |
| tree | a1e86056b2fbe6a504fcd64b10d7cf4155d8a2af | |
| parent | 824332c47098bcf5031050e1c2807686f3fbf214 (diff) | |
| download | haskell-7cb92decf49c8b76092f5dc33a885e6b300a9b7e.tar.gz | |
Force argument in setIdMult (#18925)
(cherry picked from commit 5506f1342e51bad71a7525ddad0650d1ac63afeb)
| -rw-r--r-- | compiler/GHC/Types/Var.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Types/Var.hs b/compiler/GHC/Types/Var.hs index 058b6ffc03..8b9fcc3957 100644 --- a/compiler/GHC/Types/Var.hs +++ b/compiler/GHC/Types/Var.hs @@ -841,8 +841,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) {- ************************************************************************ |