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/should_run | |
| parent | fee403fd935479e8a1ad563fd07585d91c7e04a2 (diff) | |
| download | haskell-d97a6fe2b97c81a167219eae892d3820c0685435.tar.gz | |
Fix typos in diagnostics, testsuite and comments
Diffstat (limited to 'testsuite/tests/simplCore/should_run')
| -rw-r--r-- | testsuite/tests/simplCore/should_run/simplrun002.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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) |