diff options
Diffstat (limited to 'compiler/GHC/Core/Opt/SetLevels.hs')
-rw-r--r-- | compiler/GHC/Core/Opt/SetLevels.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Core/Opt/SetLevels.hs b/compiler/GHC/Core/Opt/SetLevels.hs index 9645a10340..1d811b12cf 100644 --- a/compiler/GHC/Core/Opt/SetLevels.hs +++ b/compiler/GHC/Core/Opt/SetLevels.hs @@ -772,7 +772,7 @@ But do not do so if (saves_alloc): - the expression is not a HNF, and - the expression is not bottoming -Exammples: +Examples: * Bottoming f x = case x of @@ -945,7 +945,7 @@ But, as ever, we need to be careful: Example: ... let { v = \y. error (show x ++ show y) } in ... We want to abstract over x and float the whole thing to top: - lvl = \xy. errror (show x ++ show y) + lvl = \xy. error (show x ++ show y) ...let {v = lvl x} in ... Then of course we don't want to separately float the body (error ...) |