[commit: ghc] master: Typos in comments (97ac32a)

[git at git.haskell.org]

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

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

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

commit 97ac32a06a10ce3719705d064054dc047ab86e48
Author: Gabor Greif <ggreif at gmail.com>
Date:   Fri Jun 6 16:15:21 2014 +0200

    Typos in comments


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

97ac32a06a10ce3719705d064054dc047ab86e48
 compiler/basicTypes/OccName.lhs | 4 ++--
 compiler/types/Unify.lhs        | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/basicTypes/OccName.lhs b/compiler/basicTypes/OccName.lhs
index 2de1fdd..d942362 100644
--- a/compiler/basicTypes/OccName.lhs
+++ b/compiler/basicTypes/OccName.lhs
@@ -373,7 +373,7 @@ demoteOccName (OccName space name) = do
   return $ OccName space' name
 
 -- Name spaces are related if there is a chance to mean the one when one writes
--- the other, i.e. variables <-> data construtors and type variables <-> type constructors
+-- the other, i.e. variables <-> data constructors and type variables <-> type constructors
 nameSpacesRelated :: NameSpace -> NameSpace -> Bool
 nameSpacesRelated ns1 ns2 = ns1 == ns2 || otherNameSpace ns1 == ns2
 
@@ -385,7 +385,7 @@ otherNameSpace TcClsName = TvName
 
 
 
-{- | Other names in the compiler add aditional information to an OccName.
+{- | Other names in the compiler add additional information to an OccName.
 This class provides a consistent way to access the underlying OccName. -}
 class HasOccName name where
   occName :: name -> OccName
diff --git a/compiler/types/Unify.lhs b/compiler/types/Unify.lhs
index b668186..94fdb9c 100644
--- a/compiler/types/Unify.lhs
+++ b/compiler/types/Unify.lhs
@@ -219,7 +219,7 @@ binding variables to types that have an unacceptable shape.
 
 This helps us avoid "overlapping instance" errors in the presence of
 very general instances.   The main motivating example for this is the
-implementation of `Typeable`, which conatins the instances:
+implementation of `Typeable`, which contains the instances:
 
 ... => Typeable (f a) where ...
 ... => Typeable (a :: Nat) where ...