diff --git a/Control/DeepSeq.hs b/Control/DeepSeq.hs
index b96ca94e18ad5a3c9a4180f172d8144fb191a26a..2b3fa29ecc05c80b3247b2fb3f6e928d7370feaf 100644
--- a/Control/DeepSeq.hs
+++ b/Control/DeepSeq.hs
@@ -6,7 +6,7 @@
 -- Module      :  Control.DeepSeq
 -- Copyright   :  (c) The University of Glasgow 2001-2009
 -- License     :  BSD-style (see the file LICENSE)
--- 
+--
 -- Maintainer  :  libraries@haskell.org
 -- Stability   :  stable
 -- Portability :  portable
@@ -19,7 +19,7 @@
 --
 -- > import System.IO
 -- > import Control.DeepSeq
--- > 
+-- >
 -- > main = do
 -- >     h <- openFile "f" ReadMode
 -- >     s <- hGetContents h
@@ -109,17 +109,17 @@ force x = x `deepseq` x
 class NFData a where
     -- | rnf should reduce its argument to normal form (that is, fully
     -- evaluate all sub-components), and then return '()'.
-    -- 
-    -- The default implementation of 'rnf' is 
+    --
+    -- The default implementation of 'rnf' is
     --
     -- > rnf a = a `seq` ()
-    -- 
+    --
     -- which may be convenient when defining instances for data types with
     -- no unevaluated fields (e.g. enumerations).
     rnf :: a -> ()
     rnf a = a `seq` ()
 
-instance NFData Int 
+instance NFData Int
 instance NFData Word
 instance NFData Integer
 instance NFData Float
@@ -154,7 +154,7 @@ instance (Integral a, NFData a) => NFData (Ratio a) where
   rnf x = rnf (numerator x, denominator x)
 
 instance (RealFloat a, NFData a) => NFData (Complex a) where
-  rnf (x:+y) = rnf x `seq` 
+  rnf (x:+y) = rnf x `seq`
                rnf y `seq`
                ()
 
@@ -181,15 +181,15 @@ instance (NFData a, NFData b) => NFData (a,b) where
   rnf (x,y) = rnf x `seq` rnf y
 
 instance (NFData a, NFData b, NFData c) => NFData (a,b,c) where
-  rnf (x,y,z) = rnf x `seq` rnf y `seq` rnf z 
+  rnf (x,y,z) = rnf x `seq` rnf y `seq` rnf z
 
 instance (NFData a, NFData b, NFData c, NFData d) => NFData (a,b,c,d) where
-  rnf (x1,x2,x3,x4) = rnf x1 `seq` 
-		        rnf x2 `seq` 
-		        rnf x3 `seq` 
-		        rnf x4 
+  rnf (x1,x2,x3,x4) = rnf x1 `seq`
+                      rnf x2 `seq`
+                      rnf x3 `seq`
+                      rnf x4
 
-instance (NFData a1, NFData a2, NFData a3, NFData a4, NFData a5) => 
+instance (NFData a1, NFData a2, NFData a3, NFData a4, NFData a5) =>
          NFData (a1, a2, a3, a4, a5) where
   rnf (x1, x2, x3, x4, x5) =
                   rnf x1 `seq`
@@ -198,7 +198,7 @@ instance (NFData a1, NFData a2, NFData a3, NFData a4, NFData a5) =>
                   rnf x4 `seq`
                   rnf x5
 
-instance (NFData a1, NFData a2, NFData a3, NFData a4, NFData a5, NFData a6) => 
+instance (NFData a1, NFData a2, NFData a3, NFData a4, NFData a5, NFData a6) =>
          NFData (a1, a2, a3, a4, a5, a6) where
   rnf (x1, x2, x3, x4, x5, x6) =
                   rnf x1 `seq`
@@ -208,7 +208,7 @@ instance (NFData a1, NFData a2, NFData a3, NFData a4, NFData a5, NFData a6) =>
                   rnf x5 `seq`
                   rnf x6
 
-instance (NFData a1, NFData a2, NFData a3, NFData a4, NFData a5, NFData a6, NFData a7) => 
+instance (NFData a1, NFData a2, NFData a3, NFData a4, NFData a5, NFData a6, NFData a7) =>
          NFData (a1, a2, a3, a4, a5, a6, a7) where
   rnf (x1, x2, x3, x4, x5, x6, x7) =
                   rnf x1 `seq`
@@ -219,7 +219,7 @@ instance (NFData a1, NFData a2, NFData a3, NFData a4, NFData a5, NFData a6, NFDa
                   rnf x6 `seq`
                   rnf x7
 
-instance (NFData a1, NFData a2, NFData a3, NFData a4, NFData a5, NFData a6, NFData a7, NFData a8) => 
+instance (NFData a1, NFData a2, NFData a3, NFData a4, NFData a5, NFData a6, NFData a7, NFData a8) =>
          NFData (a1, a2, a3, a4, a5, a6, a7, a8) where
   rnf (x1, x2, x3, x4, x5, x6, x7, x8) =
                   rnf x1 `seq`
@@ -231,7 +231,7 @@ instance (NFData a1, NFData a2, NFData a3, NFData a4, NFData a5, NFData a6, NFDa
                   rnf x7 `seq`
                   rnf x8
 
-instance (NFData a1, NFData a2, NFData a3, NFData a4, NFData a5, NFData a6, NFData a7, NFData a8, NFData a9) => 
+instance (NFData a1, NFData a2, NFData a3, NFData a4, NFData a5, NFData a6, NFData a7, NFData a8, NFData a9) =>
          NFData (a1, a2, a3, a4, a5, a6, a7, a8, a9) where
   rnf (x1, x2, x3, x4, x5, x6, x7, x8, x9) =
                   rnf x1 `seq`