4 files changed, 4 insertions, 4 deletions
diff --git a/libraries/base/Data/Array/IO.hs b/libraries/base/Data/Array/IO.hs
index b47e147dc2..5c6e361a59 100644
--- a/libraries/base/Data/Array/IO.hs
+++ b/libraries/base/Data/Array/IO.hs
@@ -9,7 +9,7 @@
 -- Stability   :  experimental
 -- Portability :  non-portable
 --
--- Mutable boxed/unboxed arrays in the IO monad.
+-- Mutable boxed and unboxed arrays in the IO monad.
 --
 -----------------------------------------------------------------------------
 
diff --git a/libraries/base/Data/Array/ST.hs b/libraries/base/Data/Array/ST.hs
index d8c302848c..e71dece303 100644
--- a/libraries/base/Data/Array/ST.hs
+++ b/libraries/base/Data/Array/ST.hs
@@ -8,7 +8,7 @@
 -- Stability   :  experimental
 -- Portability :  non-portable
 --
--- Mutable boxed/unboxed arrays in the ST monad.
+-- Mutable boxed and unboxed arrays in the ST monad.
 --
 -----------------------------------------------------------------------------
 
diff --git a/libraries/base/Data/FiniteMap.hs b/libraries/base/Data/FiniteMap.hs
index a44bb36f9f..88279bda85 100644
--- a/libraries/base/Data/FiniteMap.hs
+++ b/libraries/base/Data/FiniteMap.hs
@@ -201,7 +201,7 @@ emptyFM
     bottom = panic "emptyFM"
 -}
 
--- #define EmptyFM (Branch _ _ IF_GHC(0#,0) _ _)
+--  #define EmptyFM (Branch _ _ IF_GHC(0#,0) _ _)
 
 unitFM key elt = Branch key elt IF_GHC(1#,1) emptyFM emptyFM
 
diff --git a/libraries/base/Data/PackedString.hs b/libraries/base/Data/PackedString.hs
index cc5240eae9..fd4528b552 100644
--- a/libraries/base/Data/PackedString.hs
+++ b/libraries/base/Data/PackedString.hs
@@ -10,7 +10,7 @@
 --
 -- The PackedString type, and associated operations.
 --
--- Original GHC implementation by Bryan O'Sullivan, 
+-- Original GHC implementation by Bryan O\'Sullivan, 
 -- rewritten to use UArray by Simon Marlow.
 --
 -----------------------------------------------------------------------------