diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-09-25 12:31:12 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-09-26 11:13:14 +0200 |
| commit | 7446c7f68bd5addd2f2db0d8d5910fb963869c47 (patch) | |
| tree | 05ecf5d25cdecb2893424cd07b0e7002b32ea2c4 /testsuite/tests | |
| parent | 2f8e6e7f8696213b95e3461224909c3b2ec4f7aa (diff) | |
| download | haskell-7446c7f68bd5addd2f2db0d8d5910fb963869c47.tar.gz | |
A bunch of typofixes
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/concurrent/should_run/conc065.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/dph/nbody/Generate.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/dph/quickhull/TestData.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/programs/maessen-hashtab/Data/HashTab.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/typecheck/should_compile/T12734a.hs | 2 |
5 files changed, 5 insertions, 5 deletions
diff --git a/testsuite/tests/concurrent/should_run/conc065.hs b/testsuite/tests/concurrent/should_run/conc065.hs index 8f6c18b79d..7e75381a26 100644 --- a/testsuite/tests/concurrent/should_run/conc065.hs +++ b/testsuite/tests/concurrent/should_run/conc065.hs @@ -4,7 +4,7 @@ import Control.Concurrent import Control.Exception -- This loop spends most of its time printing stuff, and very occasionally --- pops outside 'block'. This test ensures that an thread trying to +-- pops outside 'block'. This test ensures that a thread trying to -- throwTo this thread will eventually succeed. loop = mask_ (print "alive") >> loop diff --git a/testsuite/tests/dph/nbody/Generate.hs b/testsuite/tests/dph/nbody/Generate.hs index 808ab8e6bf..5b700ddec5 100644 --- a/testsuite/tests/dph/nbody/Generate.hs +++ b/testsuite/tests/dph/nbody/Generate.hs @@ -70,7 +70,7 @@ genPointsDisc n (originX, originY) radiusMax in originX `seq` originY `seq` U.zipWith makeXY radius angle --- | A point cloud with areas of high an low density +-- | A point cloud with areas of high and low density genPointsCombo :: Int -- ^ number of points -> U.Array (Double, Double) diff --git a/testsuite/tests/dph/quickhull/TestData.hs b/testsuite/tests/dph/quickhull/TestData.hs index a27cca288e..938c9fea91 100644 --- a/testsuite/tests/dph/quickhull/TestData.hs +++ b/testsuite/tests/dph/quickhull/TestData.hs @@ -63,7 +63,7 @@ genPointsDisc n (originX, originY) radiusMax in map makeXY $ zip radius angle --- | A point cloud with areas of high an low density +-- | A point cloud with areas of high and low density genPointsCombo :: Int -- ^ number of points -> [(Double, Double)] diff --git a/testsuite/tests/programs/maessen-hashtab/Data/HashTab.hs b/testsuite/tests/programs/maessen-hashtab/Data/HashTab.hs index e96d5c5efa..85b3046db9 100644 --- a/testsuite/tests/programs/maessen-hashtab/Data/HashTab.hs +++ b/testsuite/tests/programs/maessen-hashtab/Data/HashTab.hs @@ -171,7 +171,7 @@ new cmpr hash = do -- ----------------------------------------------------------------------------- -- Inserting a key\/value pair into the hash table --- | Inserts an key\/value mapping into the hash table. +-- | Inserts a key\/value mapping into the hash table. -- -- Note that 'insert' doesn't remove the old entry from the table - -- the behaviour is like an association list, where 'lookup' returns diff --git a/testsuite/tests/typecheck/should_compile/T12734a.hs b/testsuite/tests/typecheck/should_compile/T12734a.hs index 38f7307f1a..3add59e648 100644 --- a/testsuite/tests/typecheck/should_compile/T12734a.hs +++ b/testsuite/tests/typecheck/should_compile/T12734a.hs @@ -16,7 +16,7 @@ -- This version is shorter than T12734, and should yield a -- type error message. If things go wrong, you get --- an nfinite loop +-- an infinite loop module T12734a where |