[commit: ghc] master: Some typos in comments (e01367f)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/e01367ff8c3165b0dd1fb78bcb3a3ced1e4a5f19/ghc

>---------------------------------------------------------------

commit e01367ff8c3165b0dd1fb78bcb3a3ced1e4a5f19
Author: Gabor Greif <ggreif at gmail.com>
Date:   Thu Jan 23 22:33:46 2014 +0100

    Some typos in comments


>---------------------------------------------------------------

e01367ff8c3165b0dd1fb78bcb3a3ced1e4a5f19
 compiler/typecheck/TcSMonad.lhs                    |    2 +-
 testsuite/tests/indexed-types/should_compile/all.T |    2 +-
 testsuite/tests/stranal/sigs/DmdAnalGADTs.hs       |    2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/typecheck/TcSMonad.lhs b/compiler/typecheck/TcSMonad.lhs
index b01a67a..634e926 100644
--- a/compiler/typecheck/TcSMonad.lhs
+++ b/compiler/typecheck/TcSMonad.lhs
@@ -1759,7 +1759,7 @@ rewriteEqEvidence :: CtEvidence         -- Old evidence :: olhs ~ orhs (not swap
                                         --              or orhs ~ olhs (swapped)
                   -> SwapFlag
                   -> TcType -> TcType   -- New predicate  nlhs ~ nrhs
-                                        -- Should be zonked, becuase we use typeKind on nlhs/nrhs
+                                        -- Should be zonked, because we use typeKind on nlhs/nrhs
                   -> TcCoercion         -- lhs_co, of type :: nlhs ~ olhs
                   -> TcCoercion         -- rhs_co, of type :: nrhs ~ orhs
                   -> TcS (Maybe CtEvidence)  -- Of type nlhs ~ nrhs
diff --git a/testsuite/tests/indexed-types/should_compile/all.T b/testsuite/tests/indexed-types/should_compile/all.T
index 1b2ffa8..f722ea3 100644
--- a/testsuite/tests/indexed-types/should_compile/all.T
+++ b/testsuite/tests/indexed-types/should_compile/all.T
@@ -214,7 +214,7 @@ test('T7804', normal, compile, [''])
 test('T7837', normal, compile, ['-O -ddump-rule-firings'])
 test('T4185', normal, compile, [''])
 
-# Cuased infinite loop in the compiler
+# Caused infinite loop in the compiler
 test('T8002',
      normal,
      run_command,
diff --git a/testsuite/tests/stranal/sigs/DmdAnalGADTs.hs b/testsuite/tests/stranal/sigs/DmdAnalGADTs.hs
index de6484f..0c93cc0 100644
--- a/testsuite/tests/stranal/sigs/DmdAnalGADTs.hs
+++ b/testsuite/tests/stranal/sigs/DmdAnalGADTs.hs
@@ -17,7 +17,7 @@ diverges :: Int
 diverges = diverges
 
 -- The result should not have a CPR property
--- Becuase we are lub’ing "m" and "<S,U>m" in the case expression.
+-- Because we are lub’ing "m" and "<S,U>m" in the case expression.
 f :: D x -> x
 f x = case x of
     A -> hasCPR