[commit: ghc] master: Typos in comments (75504f3)

[git at git.haskell.org]

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

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

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

commit 75504f300d4db33ff66cc1a572d473bdb23b6a42
Author: Gabor Greif <ggreif at gmail.com>
Date:   Sat Aug 1 17:31:42 2015 +0200

    Typos in comments


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

75504f300d4db33ff66cc1a572d473bdb23b6a42
 compiler/basicTypes/MkId.hs      | 2 +-
 compiler/hsSyn/HsDecls.hs        | 2 +-
 compiler/typecheck/TcValidity.hs | 2 +-
 compiler/types/FamInstEnv.hs     | 2 +-
 rts/win32/GetTime.c              | 2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/compiler/basicTypes/MkId.hs b/compiler/basicTypes/MkId.hs
index bdcaf72..11f8f78 100644
--- a/compiler/basicTypes/MkId.hs
+++ b/compiler/basicTypes/MkId.hs
@@ -833,7 +833,7 @@ wrapNewTypeBody :: TyCon -> [Type] -> CoreExpr -> CoreExpr
 --      newtype T a = MkT (a,Int)
 --      MkT :: forall a. (a,Int) -> T a
 --      MkT = /\a. \(x:(a,Int)). x `cast` sym (CoT a)
--- where CoT is the coercion TyCon assoicated with the newtype
+-- where CoT is the coercion TyCon associated with the newtype
 --
 -- The call (wrapNewTypeBody T [a] e) returns the
 -- body of the wrapper, namely
diff --git a/compiler/hsSyn/HsDecls.hs b/compiler/hsSyn/HsDecls.hs
index 79b0dee..7b263ab 100644
--- a/compiler/hsSyn/HsDecls.hs
+++ b/compiler/hsSyn/HsDecls.hs
@@ -494,7 +494,7 @@ data TyClDecl name
 
     -- For details on above see note [Api annotations] in ApiAnnotation
     DataDecl { tcdLName    :: Located name        -- ^ Type constructor
-             , tcdTyVars   :: LHsTyVarBndrs name  -- ^ Type variables; for an assoicated type
+             , tcdTyVars   :: LHsTyVarBndrs name  -- ^ Type variables; for an associated type
                                                   --   these include outer binders
                                                   -- Eg  class T a where
                                                   --       type F a :: *
diff --git a/compiler/typecheck/TcValidity.hs b/compiler/typecheck/TcValidity.hs
index 4dd9a5e..67d7517 100644
--- a/compiler/typecheck/TcValidity.hs
+++ b/compiler/typecheck/TcValidity.hs
@@ -1107,7 +1107,7 @@ So we
     consistent with the instance types [p] y Int
 
 We do *not* assume (at this point) the the bound variables of
-the assoicated type instance decl are the same as for the parent
+the associated type instance decl are the same as for the parent
 instance decl. So, for example,
 
   instance C [p] Int
diff --git a/compiler/types/FamInstEnv.hs b/compiler/types/FamInstEnv.hs
index 98071e8..a4b1a21 100644
--- a/compiler/types/FamInstEnv.hs
+++ b/compiler/types/FamInstEnv.hs
@@ -891,7 +891,7 @@ topNormaliseType_maybe :: FamInstEnvs -> Type -> Maybe (Coercion, Type)
 --      * type function redex
 --      * data family redex
 --      * newtypes
--- returning an appropriate Representaitonal coercion.  Specifically, if
+-- returning an appropriate Representational coercion.  Specifically, if
 --   topNormaliseType_maybe env ty = Maybe (co, ty')
 -- then
 --   (a) co :: ty ~R ty'
diff --git a/rts/win32/GetTime.c b/rts/win32/GetTime.c
index 514def6..3600839 100644
--- a/rts/win32/GetTime.c
+++ b/rts/win32/GetTime.c
@@ -48,7 +48,7 @@ getProcessCPUTime(void)
 }
 
 // Number of ticks per second used by the QueryPerformanceFrequency
-// implementaiton, represented by a 64-bit union type.
+// implementation, represented by a 64-bit union type.
 static LARGE_INTEGER qpc_frequency = {.QuadPart = 0};
 
 // Initialize qpc_frequency. This function should be called before any call to