Commit 1967d744 authored by Gabor Greif's avatar Gabor Greif 💬

Some typos in comments

parent 4036c1f1
......@@ -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.
--
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment