Commit 4669c9e6 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Add important missing case for bothCPR

If either side diverges, both do!
parent 66733860
......@@ -722,7 +722,8 @@ lubCPR _ _ = NoCPR
bothCPR :: CPRResult -> CPRResult -> CPRResult
-- See Note [Asymmetry of 'both' for DmdType and DmdResult]
bothCPR r _ = r
bothCPR _ BotCPR = BotCPR -- If either diverges, we diverge
bothCPR r _ = r
instance Outputable DmdResult where
ppr RetProd = char 'm'
......
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