Some typos in comments
authorGabor Greif <ggreif@gmail.com>
Tue, 10 Jun 2014 23:37:01 +0000 (01:37 +0200)
committerGabor Greif <ggreif@gmail.com>
Wed, 11 Jun 2014 18:22:51 +0000 (20:22 +0200)
compiler/basicTypes/OccName.lhs
compiler/coreSyn/CoreTidy.lhs
compiler/llvmGen/LlvmCodeGen/CodeGen.hs
compiler/main/PprTyThing.hs
compiler/nativeGen/AsmCodeGen.lhs

index 087298f..1248432 100644 (file)
@@ -128,7 +128,7 @@ import Data.Data
 %*                                                                     *
 %************************************************************************
 
-FastStringEnv can't be in FastString becuase the env depends on UniqFM
+FastStringEnv can't be in FastString because the env depends on UniqFM
 
 \begin{code}
 type FastStringEnv a = UniqFM a         -- Keyed by FastString
index af1e12c..4754aa5 100644 (file)
@@ -256,11 +256,11 @@ Consider
                   False -> 2#
        in ...)
 
-The z# binding is ok becuase the RHS is ok-for-speculation,
+The z# binding is ok because the RHS is ok-for-speculation,
 but Lint will complain unless it can *see* that.  So we
 preserve the evaluated-ness on 'y' in tidyBndr.
 
-(Another alterantive would be to tidy unboxed lets into cases,
+(Another alternative would be to tidy unboxed lets into cases,
 but that seems more indirect and surprising.)
 
 
index 342b94f..5175535 100644 (file)
@@ -804,7 +804,7 @@ genSwitch cond maybe_ids = do
 
     let pairs = [ (ix, id) | (ix,Just id) <- zip [0..] maybe_ids ]
     let labels = map (\(ix, b) -> (mkIntLit ty ix, blockIdToLlvm b)) pairs
-    -- out of range is undefied, so lets just branch to first label
+    -- out of range is undefined, so let's just branch to first label
     let (_, defLbl) = head labels
 
     let s1 = Switch vc defLbl labels
index d88b137..d993ab8 100644 (file)
@@ -82,7 +82,7 @@ See #7730, #8776 for details   -}
 -- | Pretty-prints a 'FamInst' (type/data family instance) with its defining location.
 pprFamInst :: FamInst -> SDoc
 --  * For data instances we go via pprTyThing of the represntational TyCon,
---    becuase there is already much cleverness associated with printing
+--    because there is already much cleverness associated with printing
 --    data type declarations that I don't want to duplicate
 --  * For type instances we print directly here; there is no TyCon
 --    to give to pprTyThing
index 82193b4..e53bb11 100644 (file)
@@ -606,7 +606,7 @@ makeImportsDoc dflags imports
              then text ".section .note.GNU-stack,\"\",@progbits"
              else empty)
             $$
-                -- And just because every other compiler does, lets stick in
+                -- And just because every other compiler does, let's stick in
                 -- an identifier directive: .ident "GHC x.y.z"
             (if platformHasIdentDirective platform
              then let compilerIdent = text "GHC" <+> text cProjectVersion