diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-04-06 15:13:55 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-04-11 18:51:23 +0200 |
| commit | fc2a96a1ea9cceba596cbd652b44bd830a4191e4 (patch) | |
| tree | eef5f094301bd5c25710adc343b36eaf4df5e0bc /testsuite/tests/simplStg | |
| parent | e662a6cb9fb6459e0a15abbff25ae7b80f91b281 (diff) | |
| download | haskell-fc2a96a1ea9cceba596cbd652b44bd830a4191e4.tar.gz | |
Typos in comments [ci skip]
Diffstat (limited to 'testsuite/tests/simplStg')
| -rw-r--r-- | testsuite/tests/simplStg/should_run/T13536.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/simplStg/should_run/T13536.stderr | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/simplStg/should_run/T13536.hs b/testsuite/tests/simplStg/should_run/T13536.hs index cf70f46163..09daa73af4 100644 --- a/testsuite/tests/simplStg/should_run/T13536.hs +++ b/testsuite/tests/simplStg/should_run/T13536.hs @@ -8,7 +8,7 @@ unId False (Just (Id x)) = (Just x) unId False Nothing = Nothing {-# NOINLINE unId #-} -val n = trace "evalued once, as it should" (Just (Id n)) +val n = trace "evaluated once, as it should" (Just (Id n)) {-# NOINLINE val #-} foo b n = unId b (val n) diff --git a/testsuite/tests/simplStg/should_run/T13536.stderr b/testsuite/tests/simplStg/should_run/T13536.stderr index 638b7f82c1..4d6b00cfb5 100644 --- a/testsuite/tests/simplStg/should_run/T13536.stderr +++ b/testsuite/tests/simplStg/should_run/T13536.stderr @@ -1 +1 @@ -evalued once, as it should +evaluated once, as it should |