diff options
| author | Gabor Greif <ggreif@gmail.com> | 2014-08-19 08:35:06 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2014-08-19 08:36:42 +0200 |
| commit | 955dfcba4d48e9b5795bc80e79c5c7c2bade432b (patch) | |
| tree | 3328b38d3891a4556c330da0389b5d40c64fb728 | |
| parent | d2f01000ac07678b971743ebf1650837aad19b9f (diff) | |
| download | haskell-955dfcba4d48e9b5795bc80e79c5c7c2bade432b.tar.gz | |
This note's name has been fixed
| -rw-r--r-- | compiler/simplCore/OccurAnal.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/OccurAnal.lhs b/compiler/simplCore/OccurAnal.lhs index 42a6167f6f..2ce32a1e9a 100644 --- a/compiler/simplCore/OccurAnal.lhs +++ b/compiler/simplCore/OccurAnal.lhs @@ -1199,7 +1199,7 @@ occAnal env (Cast expr co) = case occAnal env expr of { (usage, expr') -> let usage1 = markManyIf (isRhsEnv env) usage usage2 = addIdOccs usage1 (coVarsOfCo co) - -- See Note [Gather occurrences of coercion veriables] + -- See Note [Gather occurrences of coercion variables] in (usage2, Cast expr' co) -- If we see let x = y `cast` co -- then mark y as 'Many' so that we don't |