Some typos in comments
authorGabor Greif <ggreif@gmail.com>
Thu, 24 Apr 2014 10:27:50 +0000 (12:27 +0200)
committerGabor Greif <ggreif@gmail.com>
Thu, 24 Apr 2014 10:37:23 +0000 (12:37 +0200)
compiler/simplCore/SimplUtils.lhs
compiler/typecheck/TcDefaults.lhs
testsuite/tests/perf/should_run/T149_A.hs
testsuite/tests/perf/should_run/T149_B.hs

index a3042a7..59e5d4a 100644 (file)
@@ -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
index d05a948..a096e50 100644 (file)
@@ -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
index dc24f4c..22ec276 100644 (file)
@@ -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.
 
 
index ef5b9c5..514fd16 100644 (file)
@@ -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.