summaryrefslogtreecommitdiff
path: root/compiler/GHC/Core/Opt/Simplify/Iteration.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/GHC/Core/Opt/Simplify/Iteration.hs')
-rw-r--r--compiler/GHC/Core/Opt/Simplify/Iteration.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Core/Opt/Simplify/Iteration.hs b/compiler/GHC/Core/Opt/Simplify/Iteration.hs
index 9fea132486..cfee2e5e56 100644
--- a/compiler/GHC/Core/Opt/Simplify/Iteration.hs
+++ b/compiler/GHC/Core/Opt/Simplify/Iteration.hs
@@ -2939,7 +2939,7 @@ doCaseToLet scrut case_bndr
-- We can call isUnliftedType here: scrutinees always have a fixed RuntimeRep (see FRRCase).
-- Note however that we must check 'scrut' (which is an 'OutExpr') and not 'case_bndr'
-- (which is an 'InId'): see Note [Dark corner with representation polymorphism].
- -- Using `exprType` is typically cheap becuase `scrut` is typically a variable.
+ -- Using `exprType` is typically cheap because `scrut` is typically a variable.
-- We could instead use mightBeUnliftedType (idType case_bndr), but that hurts
-- the brain more. Consider that if this test ever turns out to be a perf
-- problem (which seems unlikely).