[commit: ghc] master: Typos in comments [skip ci] (17ae5e7)

[git at git.haskell.org]

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

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

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

commit 17ae5e79cad49ff05941d9d9234648b15d0169dc
Author: Gabor Greif <ggreif at gmail.com>
Date:   Tue Feb 7 10:25:38 2017 +0100

    Typos in comments [skip ci]


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

17ae5e79cad49ff05941d9d9234648b15d0169dc
 compiler/typecheck/TcErrors.hs     | 2 +-
 compiler/typecheck/TcGenFunctor.hs | 2 +-
 testsuite/tests/th/T12130a.hs      | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/typecheck/TcErrors.hs b/compiler/typecheck/TcErrors.hs
index eaccc2d..6d4e3de 100644
--- a/compiler/typecheck/TcErrors.hs
+++ b/compiler/typecheck/TcErrors.hs
@@ -2056,7 +2056,7 @@ But nowadays when inferring the type of a function with no type signature,
 even if there are errors inside, we still generalise its signature and
 carry on. For example
    f x = x:x
-Here we will infer somethiing like
+Here we will infer something like
    f :: forall a. a -> [a]
 with a deferred error of (a ~ [a]).  So in the deferred unsolved constraint
 'a' is now a skolem, but not one bound by the programmer in the context!
diff --git a/compiler/typecheck/TcGenFunctor.hs b/compiler/typecheck/TcGenFunctor.hs
index b34a0b6..49129bf 100644
--- a/compiler/typecheck/TcGenFunctor.hs
+++ b/compiler/typecheck/TcGenFunctor.hs
@@ -252,7 +252,7 @@ non-regular, such as
 data Nesty a = Z a | S (Nesty a) (Nest (a, a))
 
 the function argument is no longer (entirely) static, so the static argument
-transformation will do nothiing for us.
+transformation will do nothing for us.
 
 Applying the default definition of `<$` will produce a tree full of thunks that
 look like ((\_ -> x) x0), which represents unnecessary thunk allocation and
diff --git a/testsuite/tests/th/T12130a.hs b/testsuite/tests/th/T12130a.hs
index f393967..38e2bdf 100644
--- a/testsuite/tests/th/T12130a.hs
+++ b/testsuite/tests/th/T12130a.hs
@@ -11,7 +11,7 @@ data Block = Block
 block :: Q Exp
 block =
     [| Block {
-         -- Using record syntax is neccesary to trigger the bug.
+         -- Using record syntax is necessary to trigger the bug.
          blockSelector = ()
        }
     |]