diff options
| -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) {- ************************************************************************ |