fix typos

core/src/Test/Framework/Runners/ThreadPool.hs

@@ -71,7 +71,7 @@ poolWorker input_chan output_chan = do
             poolWorker input_chan output_chan
 
 -- | Keep grabbing items out of the infinite list of worker outputs until we have
--- recieved word that all of the workers have shut down.  This lets us turn a possibly
+-- received word that all of the workers have shut down.  This lets us turn a possibly
 -- infinite list of outputs into a certainly finite one suitable for use with reorderFrom.
 takeWhileWorkersExist :: Int -> [WorkerEvent token a] -> [(token, a)]
 takeWhileWorkersExist worker_count events

core/src/Test/Framework/Runners/XML/JUnitWriter.hs

@@ -18,7 +18,7 @@ import Text.XML.Light ( ppTopElement, unqual, unode
 -- | An overall description of the test suite run.  This is currently
 -- styled after the JUnit xml.  It contains records that are not yet
 -- used, however, it provides a sensible structure to populate as we
--- are able, and the serialiazation code behaves as though these are
+-- are able, and the serialization code behaves as though these are
 -- filled.
 data RunDescription = RunDescription {
     errors :: Int -- ^ The number of tests that triggered error

core/test/Test/Framework/Tests/Runners/XMLTests.hs

@@ -103,7 +103,7 @@ property = morallyDubiousIOProperty . fmap isJust . parseSerialize
 parseSerialize :: RunDescription -> IO (Maybe XML.Document)
 parseSerialize = XML.parseMemory_ . UTF8.fromString . serialize False
 
--- | Verify that the group names are properly pre-pended to sub-tests.
+-- | Verify that the group names are properly prepended to sub-tests.
 test :: Test
 test = TestLabel "Check the composition of group names" $ TestCase $
        XML.findAttr (XML.unqual "classname") x @?= Just "top.g1"