diff options
| -rw-r--r-- | compiler/simplCore/SimplUtils.lhs | 2 | ||||
| -rw-r--r-- | compiler/typecheck/TcDefaults.lhs | 2 | ||||
| -rw-r--r-- | testsuite/tests/perf/should_run/T149_A.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/perf/should_run/T149_B.hs | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/compiler/simplCore/SimplUtils.lhs b/compiler/simplCore/SimplUtils.lhs index a3042a7194..59e5d4adc1 100644 --- a/compiler/simplCore/SimplUtils.lhs +++ b/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 diff --git a/compiler/typecheck/TcDefaults.lhs b/compiler/typecheck/TcDefaults.lhs index d05a9485f8..a096e506ed 100644 --- a/compiler/typecheck/TcDefaults.lhs +++ b/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 diff --git a/testsuite/tests/perf/should_run/T149_A.hs b/testsuite/tests/perf/should_run/T149_A.hs index dc24f4c13c..22ec276ebc 100644 --- a/testsuite/tests/perf/should_run/T149_A.hs +++ b/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. diff --git a/testsuite/tests/perf/should_run/T149_B.hs b/testsuite/tests/perf/should_run/T149_B.hs index ef5b9c56bb..514fd16a9c 100644 --- a/testsuite/tests/perf/should_run/T149_B.hs +++ b/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. |