Commit 5506f134 authored by Krzysztof Gogolewski's avatar Krzysztof Gogolewski Committed by Marge Bot

Force argument in setIdMult (#18925)

parent e9e1b2e7
Pipeline #27455 failed with stages
in 638 minutes and 40 seconds
......@@ -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)
{-
************************************************************************
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment