summaryrefslogtreecommitdiff
path: root/compiler/GHC/Core/Opt/DmdAnal.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/GHC/Core/Opt/DmdAnal.hs')
-rw-r--r--compiler/GHC/Core/Opt/DmdAnal.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/GHC/Core/Opt/DmdAnal.hs b/compiler/GHC/Core/Opt/DmdAnal.hs
index f1554a38ed..5819885c23 100644
--- a/compiler/GHC/Core/Opt/DmdAnal.hs
+++ b/compiler/GHC/Core/Opt/DmdAnal.hs
@@ -648,9 +648,8 @@ Note [Which scrutinees may throw precise exceptions]
This is the specification of 'exprMayThrowPreciseExceptions',
which is important for Scenario 2 of
Note [Precise exceptions and strictness analysis] in GHC.Types.Demand.
-Ideally, we'd discover
-For a term-level expression @f a1 ... an :: ty@ we determine that
+For a term-level expression @f a1 ... an :: ty@ we return
1. False If ty is *not* @State# RealWorld@ or an unboxed tuple thereof.
This check is done by 'forcesRealWorld'.
(Why not simply unboxed pairs as above? This is motivated by