Typos in comments [skip ci]

3 files changed, 3 insertions, 3 deletions

diff --git a/libraries/base/GHC/Event/EPoll.hsc b/libraries/base/GHC/Event/EPoll.hsc
index b8861c41f1..2cffb00931 100644
--- a/libraries/base/GHC/Event/EPoll.hsc
+++ b/libraries/base/GHC/Event/EPoll.hsc
@@ -115,7 +115,7 @@ poll ep mtimeout f = do
   let events = epollEvents ep
       fd = epollFd ep
 
-  -- Will return zero if the system call was interupted, in which case
+  -- Will return zero if the system call was interrupted, in which case
   -- we just return (and try again later.)
   n <- A.unsafeLoad events $ \es cap -> case mtimeout of
     Just timeout -> epollWait fd es cap $ fromTimeout timeout
diff --git a/libraries/base/cbits/primFloat.c b/libraries/base/cbits/primFloat.c
index 7ac03202f9..4bee4d0ded 100644
--- a/libraries/base/cbits/primFloat.c
+++ b/libraries/base/cbits/primFloat.c
@@ -108,7 +108,7 @@ union stg_ieee754_dbl
  * Predicates for testing for extreme IEEE fp values.
  */
 
-/* In case you don't suppport IEEE, you'll just get dummy defs.. */
+/* In case you don't support IEEE, you'll just get dummy defs.. */
 #ifdef IEEE_FLOATING_POINT
 
 HsInt
diff --git a/libraries/template-haskell/Language/Haskell/TH/Syntax.hs b/libraries/template-haskell/Language/Haskell/TH/Syntax.hs
index e21bb1c6b3..04a15ac6c6 100644
--- a/libraries/template-haskell/Language/Haskell/TH/Syntax.hs
+++ b/libraries/template-haskell/Language/Haskell/TH/Syntax.hs
@@ -1229,7 +1229,7 @@ data Lit = CharL Char
 
     -- We could add Int, Float, Double etc, as we do in HsLit,
     -- but that could complicate the
-    -- suppposedly-simple TH.Syntax literal type
+    -- supposedly-simple TH.Syntax literal type
 
 -- | Pattern in Haskell given in @{}@
 data Pat