From b78e0eed32d225170ef932feae79847abc20ae04 Mon Sep 17 00:00:00 2001
From: Eric Lindblad <askeblad@outlook.com>
Date: Wed, 16 Mar 2022 09:00:50 -0500
Subject: [PATCH] typos

---
 core/src/Test/Framework/Runners/ThreadPool.hs      | 2 +-
 core/src/Test/Framework/Runners/XML/JUnitWriter.hs | 2 +-
 core/test/Test/Framework/Tests/Runners/XMLTests.hs | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/core/src/Test/Framework/Runners/ThreadPool.hs b/core/src/Test/Framework/Runners/ThreadPool.hs
index 1981bae..a41e681 100644
--- a/core/src/Test/Framework/Runners/ThreadPool.hs
+++ b/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
diff --git a/core/src/Test/Framework/Runners/XML/JUnitWriter.hs b/core/src/Test/Framework/Runners/XML/JUnitWriter.hs
index 2eeb860..bf875f2 100644
--- a/core/src/Test/Framework/Runners/XML/JUnitWriter.hs
+++ b/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
diff --git a/core/test/Test/Framework/Tests/Runners/XMLTests.hs b/core/test/Test/Framework/Tests/Runners/XMLTests.hs
index c725013..d6a30ee 100644
--- a/core/test/Test/Framework/Tests/Runners/XMLTests.hs
+++ b/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"