diff options
| author | simonpj@microsoft.com <unknown> | 2009-11-04 21:41:58 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-11-04 21:41:58 +0000 |
| commit | 4ea81579160f59983586ea11a56c60010e0c93ce (patch) | |
| tree | bc945c0720f23eba9738d9db673c7d185855b2d1 /compiler | |
| parent | e66a5311c7bfa0690875f2e87bbe74d053e24147 (diff) | |
| download | haskell-4ea81579160f59983586ea11a56c60010e0c93ce.tar.gz | |
Comment only
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/simplCore/Simplify.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs index 1cb3e9fd35..d1695184ca 100644 --- a/compiler/simplCore/Simplify.lhs +++ b/compiler/simplCore/Simplify.lhs @@ -1518,7 +1518,7 @@ much always zap the OccInfo of the binders. It doesn't matter much though. Note [Case of cast] ~~~~~~~~~~~~~~~~~~~ -Consider case (v `cast` co) of x { I# -> +Consider case (v `cast` co) of x { I# y -> ... (case (v `cast` co) of {...}) ... We'd like to eliminate the inner case. We can get this neatly by arranging that inside the outer case we add the unfolding |