Some typos in comments

compiler/simplCore/SimplUtils.lhs

@@ -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

compiler/typecheck/TcDefaults.lhs

@@ -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

testsuite/tests/perf/should_run/T149_A.hs

@@ -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.
 
 

testsuite/tests/perf/should_run/T149_B.hs

@@ -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.