Commit 4ceb5dec authored by Gabor Greif's avatar Gabor Greif 💬
Browse files

Some typos in comments

parent 79e46aea
......@@ -1208,7 +1208,7 @@ tryEtaExpandRhs env bndr rhs
, let new_arity1 = findRhsArity dflags bndr rhs old_arity
new_arity2 = idCallArity bndr
new_arity = max new_arity1 new_arity2
, new_arity > old_arity -- And the curent manifest arity isn't enough
, new_arity > old_arity -- And the current manifest arity isn't enough
= do { tick (EtaExpansion bndr)
; return (new_arity, etaExpand new_arity rhs) }
| otherwise
......
......@@ -39,7 +39,7 @@ tcDefaults :: [LDefaultDecl Name]
tcDefaults []
= getDeclaredDefaultTys -- No default declaration, so get the
-- default types from the envt;
-- i.e. use the curent ones
-- i.e. use the current ones
-- (the caller will put them back there)
-- It's important not to return defaultDefaultTys here (which
-- we used to do) because in a TH program, tcDefaults [] is called
......
......@@ -2,7 +2,7 @@ module Main (main) where
-- See Trac #149
-- Curently (with GHC 7.0) the CSE works, just,
-- Currently (with GHC 7.0) the CSE works, just,
-- but it's delicate.
......
......@@ -2,7 +2,7 @@ module Main (main) where
-- See Trac #149
-- Curently (with GHC 7.0) the CSE works, just,
-- Currently (with GHC 7.0) the CSE works, just,
-- but it's delicate.
......
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