diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2020-11-06 10:21:30 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-11-11 03:21:14 -0500 |
| commit | 5506f1342e51bad71a7525ddad0650d1ac63afeb (patch) | |
| tree | 78e7fac74cd4487e325a39d15486d04777e2d1d6 | |
| parent | e9e1b2e75de17be47ab887a26943f5517a8463ac (diff) | |
| download | haskell-5506f1342e51bad71a7525ddad0650d1ac63afeb.tar.gz | |
Force argument in setIdMult (#18925)
| -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 a11fc335d3..2758ae2ded 100644 --- a/compiler/GHC/Types/Var.hs +++ b/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) {- ************************************************************************ |