Some typos in comments
authorGabor Greif <ggreif@gmail.com>
Mon, 25 Jul 2016 22:34:48 +0000 (00:34 +0200)
committerGabor Greif <ggreif@gmail.com>
Mon, 25 Jul 2016 22:34:48 +0000 (00:34 +0200)
compiler/codeGen/StgCmmExpr.hs
compiler/simplCore/Simplify.hs
compiler/stgSyn/StgSyn.hs
compiler/typecheck/TcSplice.hs

index 142d30c..1965754 100644 (file)
@@ -227,7 +227,7 @@ Suppose the inner loop is P->R->P->R etc.  Then here is
 how many heap checks we get in the *inner loop* under various
 conditions
 
-  Alooc   Heap check in branches (!Q!, !R!)?
+  Alloc   Heap check in branches (!Q!, !R!)?
   P Q R      yes     no (absorb to !P!)
 --------------------------------------
   n n n      0          0
@@ -877,7 +877,7 @@ emitEnter fun = do
       --
       -- Note in particular that the label Lret is used as a
       -- destination by both the tag-test and the call.  This is
-      -- becase Lret will necessarily be a proc-point, and we want to
+      -- because Lret will necessarily be a proc-point, and we want to
       -- ensure that we generate only one proc-point for this
       -- sequence.
       --
index 7138d89..8bc5dc4 100644 (file)
@@ -590,7 +590,7 @@ makeTrivialWithInfo top_lvl env context info expr
         ; env'  <- completeNonRecX top_lvl env False var var expr
         ; expr' <- simplVar env' var
         ; return (env', expr') }
-        -- The simplVar is needed becase we're constructing a new binding
+        -- The simplVar is needed because we're constructing a new binding
         --     a = rhs
         -- And if rhs is of form (rhs1 |> co), then we might get
         --     a1 = rhs1
index 2c22a29..2f29f1e 100644 (file)
@@ -137,7 +137,7 @@ isAddrRep _       = False
 
 -- | Type of an @StgArg@
 --
--- Very half baked becase we have lost the type arguments.
+-- Very half baked because we have lost the type arguments.
 stgArgType :: StgArg -> Type
 stgArgType (StgVarArg v)   = idType v
 stgArgType (StgLitArg lit) = literalType lit
index 6ae1ba4..6e09b99 100644 (file)
@@ -1262,7 +1262,7 @@ lookupThName_maybe th_name
         ; return (listToMaybe names) }
   where
     lookup rdr_name
-        = do {  -- Repeat much of lookupOccRn, becase we want
+        = do {  -- Repeat much of lookupOccRn, because we want
                 -- to report errors in a TH-relevant way
              ; rdr_env <- getLocalRdrEnv
              ; case lookupLocalRdrEnv rdr_env rdr_name of