diff options
| -rw-r--r-- | compiler/GHC/Types/Demand.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Types/Demand.hs b/compiler/GHC/Types/Demand.hs index 71693748e0..b4cf78829c 100644 --- a/compiler/GHC/Types/Demand.hs +++ b/compiler/GHC/Types/Demand.hs @@ -1473,7 +1473,7 @@ defaultArgDmd :: Divergence -> Demand defaultArgDmd Dunno = topDmd -- NB: not botDmd! We don't want to mask the precise exception by forcing the -- argument. But it is still absent. -defaultArgDmd ExnOrDiv = absDmd +defaultArgDmd ExnOrDiv = topDmd defaultArgDmd Diverges = botDmd {- Note [Precise vs imprecise exceptions] |