Typos in note header and test
authorGabor Greif <ggreif@gmail.com>
Tue, 31 Jan 2017 11:41:29 +0000 (12:41 +0100)
committerGabor Greif <ggreif@gmail.com>
Wed, 1 Feb 2017 08:21:58 +0000 (09:21 +0100)
compiler/coreSyn/CoreUtils.hs
testsuite/tests/deSugar/should_run/DsStrict.hs
testsuite/tests/deSugar/should_run/DsStrict.stdout

index d8e34ad..d856e3d 100644 (file)
@@ -1138,7 +1138,7 @@ exprIsOk ok_app e
     go _ (Let {})                     = False
 
       -- Case: see Note [Case expressions are work-free]
-      -- App:  see Note [Arugments in exprIsOk]
+      -- App:  see Note [Arguments in exprIsOk]
       -- Let:  the old exprIsCheap worked through lets
 
 
index ef3f06f..aa11735 100644 (file)
@@ -14,7 +14,7 @@ f1' ~n =
   case n of
     ~a -> "case2"
 
-f2 = \a -> "lamda"
+f2 = \a -> "lambda"
 f2' = \ ~a -> "lambda2"
 
 newtype Age = MkAge Int