diff options
| author | Gabor Greif <ggreif@gmail.com> | 2013-01-24 16:06:57 +0100 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2013-01-30 21:45:31 +0100 |
| commit | 3e1745aa272077c98254ce9b79e62b92c40948a9 (patch) | |
| tree | d9dca5075561442dafcf8bb3cb627dec7cc0a9e6 /compiler/stgSyn | |
| parent | a217e7a27a8d48095e2e276ed07a203254bf8743 (diff) | |
| download | haskell-3e1745aa272077c98254ce9b79e62b92c40948a9.tar.gz | |
typos
Diffstat (limited to 'compiler/stgSyn')
| -rw-r--r-- | compiler/stgSyn/StgLint.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/stgSyn/StgLint.lhs b/compiler/stgSyn/StgLint.lhs index 852202f5f7..3509a83849 100644 --- a/compiler/stgSyn/StgLint.lhs +++ b/compiler/stgSyn/StgLint.lhs @@ -232,7 +232,7 @@ lintStgAlts alts scrut_ty = do where -- check ty = checkTys first_ty ty (mkCaseAltMsg alts) -- We can't check that the alternatives have the - -- same type, becuase they don't, with unsafeCoerce# + -- same type, because they don't, with unsafeCoerce# lintAlt :: Type -> (AltCon, [Id], [Bool], StgExpr) -> LintM (Maybe Type) lintAlt _ (DEFAULT, _, _, rhs) |