A few typofixes

2 files changed, 3 insertions, 3 deletions

diff --git a/libraries/base/Data/Either.hs b/libraries/base/Data/Either.hs
index 58987a3910..afd676d415 100644
--- a/libraries/base/Data/Either.hs
+++ b/libraries/base/Data/Either.hs
@@ -192,7 +192,7 @@ either _ g (Right y)    =  g y
 --
 lefts   :: [Either a b] -> [a]
 lefts x = [a | Left a <- x]
-{-# INLINEABLE lefts #-} -- otherwise doesnt get an unfolding, see #13689
+{-# INLINEABLE lefts #-} -- otherwise doesn't get an unfolding, see #13689
 
 -- | Extracts from a list of 'Either' all the 'Right' elements.
 -- All the 'Right' elements are extracted in order.
@@ -207,7 +207,7 @@ lefts x = [a | Left a <- x]
 --
 rights   :: [Either a b] -> [b]
 rights x = [a | Right a <- x]
-{-# INLINEABLE rights #-} -- otherwise doesnt get an unfolding, see #13689
+{-# INLINEABLE rights #-} -- otherwise doesn't get an unfolding, see #13689
 
 -- | Partitions a list of 'Either' into two lists.
 -- All the 'Left' elements are extracted, in order, to the first
diff --git a/libraries/base/Data/Foldable.hs b/libraries/base/Data/Foldable.hs
index a7d57f7e62..9a031212f0 100644
--- a/libraries/base/Data/Foldable.hs
+++ b/libraries/base/Data/Foldable.hs
@@ -706,7 +706,7 @@ GHC used to proceed like this:
 
   mapM_ <big> (build g)
 
-  = { Defintion of mapM_ }
+  = { Definition of mapM_ }
     foldr ((>>) . <big>) (return ()) (build g)
 
   = { foldr/build rule }