Whitespace only in GHC.Show

1 files changed, 25 insertions, 25 deletions

diff --git a/libraries/base/GHC/Show.lhs b/libraries/base/GHC/Show.lhs
index b0f5ee3900..645472d5f2 100644
--- a/libraries/base/GHC/Show.lhs
+++ b/libraries/base/GHC/Show.lhs
@@ -8,7 +8,7 @@
 -- Module      :  GHC.Show
 -- Copyright   :  (c) The University of Glasgow, 1992-2002
 -- License     :  see libraries/base/LICENSE
--- 
+--
 -- Maintainer  :  cvs-ghc@haskell.org
 -- Stability   :  internal
 -- Portability :  non-portable (GHC Extensions)
@@ -98,7 +98,7 @@ type ShowS = String -> String
 -- >          where app_prec = 10
 -- >
 -- >        showsPrec d (u :^: v) = showParen (d > up_prec) $
--- >             showsPrec (up_prec+1) u . 
+-- >             showsPrec (up_prec+1) u .
 -- >             showString " :^: "      .
 -- >             showsPrec (up_prec+1) v
 -- >          where up_prec = 5
@@ -165,7 +165,7 @@ appPrec1 = I# 11#       -- appPrec + 1
 %*********************************************************
 
 \begin{code}
- 
+
 instance  Show ()  where
     showsPrec _ () = showString "()"
 
@@ -193,8 +193,8 @@ instance Show Int where
 instance Show a => Show (Maybe a) where
     showsPrec _p Nothing s = showString "Nothing" s
     showsPrec p (Just x) s
-                          = (showParen (p > appPrec) $ 
-                             showString "Just " . 
+                          = (showParen (p > appPrec) $
+                             showString "Just " .
                              showsPrec appPrec1 x) s
 \end{code}
 
@@ -229,58 +229,58 @@ instance (Show a, Show b, Show c, Show d, Show e, Show f) => Show (a,b,c,d,e,f)
 
 instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g)
         => Show (a,b,c,d,e,f,g) where
-  showsPrec _ (a,b,c,d,e,f,g) s 
+  showsPrec _ (a,b,c,d,e,f,g) s
         = show_tuple [shows a, shows b, shows c, shows d, shows e, shows f, shows g] s
 
 instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g, Show h)
          => Show (a,b,c,d,e,f,g,h) where
-  showsPrec _ (a,b,c,d,e,f,g,h) s 
+  showsPrec _ (a,b,c,d,e,f,g,h) s
         = show_tuple [shows a, shows b, shows c, shows d, shows e, shows f, shows g, shows h] s
 
 instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g, Show h, Show i)
          => Show (a,b,c,d,e,f,g,h,i) where
-  showsPrec _ (a,b,c,d,e,f,g,h,i) s 
-        = show_tuple [shows a, shows b, shows c, shows d, shows e, shows f, shows g, shows h, 
+  showsPrec _ (a,b,c,d,e,f,g,h,i) s
+        = show_tuple [shows a, shows b, shows c, shows d, shows e, shows f, shows g, shows h,
                       shows i] s
 
 instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g, Show h, Show i, Show j)
          => Show (a,b,c,d,e,f,g,h,i,j) where
-  showsPrec _ (a,b,c,d,e,f,g,h,i,j) s 
-        = show_tuple [shows a, shows b, shows c, shows d, shows e, shows f, shows g, shows h, 
+  showsPrec _ (a,b,c,d,e,f,g,h,i,j) s
+        = show_tuple [shows a, shows b, shows c, shows d, shows e, shows f, shows g, shows h,
                       shows i, shows j] s
 
 instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g, Show h, Show i, Show j, Show k)
          => Show (a,b,c,d,e,f,g,h,i,j,k) where
-  showsPrec _ (a,b,c,d,e,f,g,h,i,j,k) s 
-        = show_tuple [shows a, shows b, shows c, shows d, shows e, shows f, shows g, shows h, 
+  showsPrec _ (a,b,c,d,e,f,g,h,i,j,k) s
+        = show_tuple [shows a, shows b, shows c, shows d, shows e, shows f, shows g, shows h,
                       shows i, shows j, shows k] s
 
 instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g, Show h, Show i, Show j, Show k,
           Show l)
          => Show (a,b,c,d,e,f,g,h,i,j,k,l) where
-  showsPrec _ (a,b,c,d,e,f,g,h,i,j,k,l) s 
-        = show_tuple [shows a, shows b, shows c, shows d, shows e, shows f, shows g, shows h, 
+  showsPrec _ (a,b,c,d,e,f,g,h,i,j,k,l) s
+        = show_tuple [shows a, shows b, shows c, shows d, shows e, shows f, shows g, shows h,
                       shows i, shows j, shows k, shows l] s
 
 instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g, Show h, Show i, Show j, Show k,
           Show l, Show m)
          => Show (a,b,c,d,e,f,g,h,i,j,k,l,m) where
-  showsPrec _ (a,b,c,d,e,f,g,h,i,j,k,l,m) s 
-        = show_tuple [shows a, shows b, shows c, shows d, shows e, shows f, shows g, shows h, 
+  showsPrec _ (a,b,c,d,e,f,g,h,i,j,k,l,m) s
+        = show_tuple [shows a, shows b, shows c, shows d, shows e, shows f, shows g, shows h,
                       shows i, shows j, shows k, shows l, shows m] s
 
 instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g, Show h, Show i, Show j, Show k,
           Show l, Show m, Show n)
          => Show (a,b,c,d,e,f,g,h,i,j,k,l,m,n) where
-  showsPrec _ (a,b,c,d,e,f,g,h,i,j,k,l,m,n) s 
-        = show_tuple [shows a, shows b, shows c, shows d, shows e, shows f, shows g, shows h, 
+  showsPrec _ (a,b,c,d,e,f,g,h,i,j,k,l,m,n) s
+        = show_tuple [shows a, shows b, shows c, shows d, shows e, shows f, shows g, shows h,
                       shows i, shows j, shows k, shows l, shows m, shows n] s
 
 instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g, Show h, Show i, Show j, Show k,
           Show l, Show m, Show n, Show o)
          => Show (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o) where
-  showsPrec _ (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o) s 
-        = show_tuple [shows a, shows b, shows c, shows d, shows e, shows f, shows g, shows h, 
+  showsPrec _ (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o) s
+        = show_tuple [shows a, shows b, shows c, shows d, shows e, shows f, shows g, shows h,
                       shows i, shows j, shows k, shows l, shows m, shows n, shows o] s
 
 show_tuple :: [ShowS] -> ShowS
@@ -351,7 +351,7 @@ showLitString :: String -> ShowS
 -- for non-printable characters. Does not add double-quotes around the
 -- whole thing; the caller should do that.
 -- The main difference from showLitChar (apart from the fact that the
--- argument is a string not a list) is that we must escape double-quotes 
+-- argument is a string not a list) is that we must escape double-quotes
 showLitString []         s = s
 showLitString ('"' : cs) s = showString "\\\"" (showLitString cs s)
 showLitString (c   : cs) s = showLitChar c (showLitString cs s)
@@ -386,10 +386,10 @@ protectEsc p f             = f . cont
 asciiTab :: [String]
 asciiTab = -- Using an array drags in the array module.  listArray ('\NUL', ' ')
            ["NUL", "SOH", "STX", "ETX", "EOT", "ENQ", "ACK", "BEL",
-            "BS",  "HT",  "LF",  "VT",  "FF",  "CR",  "SO",  "SI", 
+            "BS",  "HT",  "LF",  "VT",  "FF",  "CR",  "SO",  "SI",
             "DLE", "DC1", "DC2", "DC3", "DC4", "NAK", "SYN", "ETB",
-            "CAN", "EM",  "SUB", "ESC", "FS",  "GS",  "RS",  "US", 
-            "SP"] 
+            "CAN", "EM",  "SUB", "ESC", "FS",  "GS",  "RS",  "US",
+            "SP"]
 \end{code}
 
 Code specific for Ints.