diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-09-06 14:42:02 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-09-07 11:55:07 +0200 |
| commit | d97a6fe2b97c81a167219eae892d3820c0685435 (patch) | |
| tree | 4387af534308dbaa966a80f28abc3ceeabf43219 /testsuite/tests/simplCore | |
| parent | fee403fd935479e8a1ad563fd07585d91c7e04a2 (diff) | |
| download | haskell-d97a6fe2b97c81a167219eae892d3820c0685435.tar.gz | |
Fix typos in diagnostics, testsuite and comments
Diffstat (limited to 'testsuite/tests/simplCore')
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/T14137.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/simplCore/should_run/simplrun002.hs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T14137.hs b/testsuite/tests/simplCore/should_compile/T14137.hs index ef8c307076..f8cbbc251a 100644 --- a/testsuite/tests/simplCore/should_compile/T14137.hs +++ b/testsuite/tests/simplCore/should_compile/T14137.hs @@ -1,7 +1,7 @@ module T14137 where -- The point of this test is that we should inline 'thunk' --- into j's RHS, and we can do so quite agressively, even +-- into j's RHS, and we can do so quite aggressively, even -- when we aren't optimising. See the ticket. -- -- It's not a big deal, because in the end FloatIn diff --git a/testsuite/tests/simplCore/should_run/simplrun002.hs b/testsuite/tests/simplCore/should_run/simplrun002.hs index ec4ea7c7ac..5b9e01cc25 100644 --- a/testsuite/tests/simplCore/should_run/simplrun002.hs +++ b/testsuite/tests/simplCore/should_run/simplrun002.hs @@ -12,11 +12,11 @@ import System.IO import System.IO.Unsafe ( unsafePerformIO ) {-# NOINLINE [0] sndSnd #-} --- Dont inline till last, to give the rule a chance +-- Don't inline till last, to give the rule a chance sndSnd (a,(b,c)) = (a,c) {-# NOINLINE [2] myFst #-} --- Dont inline till last, to give the rule a chance +-- Don't inline till last, to give the rule a chance myFst (a,b) = a trace x y = unsafePerformIO (hPutStr stderr x >> hPutStr stderr "\n" >> return y) |