Skip to content
Snippets Groups Projects
Commit 5506f134 authored by Krzysztof Gogolewski's avatar Krzysztof Gogolewski Committed by Marge Bot
Browse files

Force argument in setIdMult (#18925)

parent e9e1b2e7
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
compiler/GHC/Types/Var.hs
+ 2
− 2
View file @ 5506f134
...@@ -869,8 +869,8 @@ updateIdTypeAndMultM f id@(Id { varType = ty ...@@ -869,8 +869,8 @@ updateIdTypeAndMultM f id@(Id { varType = ty
updateIdTypeAndMultM _ other = pprPanic "updateIdTypeAndMultM" (ppr other) updateIdTypeAndMultM _ other = pprPanic "updateIdTypeAndMultM" (ppr other)
setIdMult :: Id -> Mult -> Id setIdMult :: Id -> Mult -> Id
setIdMult id r | isId id = id { varMult = r } setIdMult id !r | isId id = id { varMult = r }
| otherwise = pprPanic "setIdMult" (ppr id <+> ppr r) | otherwise = pprPanic "setIdMult" (ppr id <+> ppr r)
{- {-
************************************************************************ ************************************************************************
......
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