Whitespace only in tests

10 files changed, 69 insertions, 69 deletions

diff --git a/libraries/base/tests/CPUTime001.hs b/libraries/base/tests/CPUTime001.hs
index 6c43c57ec5..122e9ca684 100644
--- a/libraries/base/tests/CPUTime001.hs
+++ b/libraries/base/tests/CPUTime001.hs
@@ -18,9 +18,9 @@ timeFib n = do
     return (end - start)
 
 nfib :: Integer -> Integer
-nfib n 
+nfib n
   | n <= 1 = 1
   | otherwise = (n1 + n2 + 1)
-  where 
-    n1 = nfib (n-1) 
+  where
+    n1 = nfib (n-1)
     n2 = nfib (n-2)
diff --git a/libraries/base/tests/Numeric/num002.hs b/libraries/base/tests/Numeric/num002.hs
index 31ea76ced9..8879607531 100644
--- a/libraries/base/tests/Numeric/num002.hs
+++ b/libraries/base/tests/Numeric/num002.hs
@@ -7,7 +7,7 @@ import Numeric
 showSignedInt :: Integral a => a -> String
 showSignedInt x = showSigned (showInt) 0 x ""
 
-main = 
+main =
   do
    putStrLn (showInt (343023920121::Integer) [])
    putStrLn (showInt (3430239::Int) [])
diff --git a/libraries/base/tests/Numeric/num003.hs b/libraries/base/tests/Numeric/num003.hs
index 368be2599a..01ca4926a5 100644
--- a/libraries/base/tests/Numeric/num003.hs
+++ b/libraries/base/tests/Numeric/num003.hs
@@ -5,9 +5,9 @@ module Main(main) where
 import Numeric
 import Data.Char
 
-main = 
-  let 
-   rd :: ReadS Integer 
+main =
+  let
+   rd :: ReadS Integer
    rd = readSigned (readInt 10 (isDigit) (digitToInt))
   in
   do
diff --git a/libraries/base/tests/Numeric/num004.hs b/libraries/base/tests/Numeric/num004.hs
index 0eb2bee5b0..815998819d 100644
--- a/libraries/base/tests/Numeric/num004.hs
+++ b/libraries/base/tests/Numeric/num004.hs
@@ -5,9 +5,9 @@ module Main(main) where
 import Numeric
 import Data.Char
 
-main = 
-  let 
-   rd :: ReadS Integer 
+main =
+  let
+   rd :: ReadS Integer
    rd = readSigned (readInt 10 (isDigit) (digitToInt))
   in
   do
diff --git a/libraries/base/tests/Numeric/num005.hs b/libraries/base/tests/Numeric/num005.hs
index ef647a6967..49ed092436 100644
--- a/libraries/base/tests/Numeric/num005.hs
+++ b/libraries/base/tests/Numeric/num005.hs
@@ -4,14 +4,14 @@ module Main(main) where
 
 import Numeric
 
-main = 
-  let 
+main =
+  let
    ls = ["3489348394032498320438240938403","0","-1","1","34323","2L","012","0x23","3243ab"]
    present str f ls =
-    sequence (map (\ v -> putStr ('\n':str ++ 
-                                  ' ': v   ++ 
-				  " = "    ++ 
-				  (show (f v)))) ls)
+    sequence (map (\ v -> putStr ('\n':str ++
+                                  ' ': v   ++
+                                  " = "    ++
+                                  (show (f v)))) ls)
   in
   do
    present "(readDec::ReadS Integer)" (readDec::ReadS Integer) ls
diff --git a/libraries/base/tests/Numeric/num006.hs b/libraries/base/tests/Numeric/num006.hs
index f421ed72a2..65347dd8aa 100644
--- a/libraries/base/tests/Numeric/num006.hs
+++ b/libraries/base/tests/Numeric/num006.hs
@@ -10,13 +10,13 @@ showDec = showInt
 
 {-
 --showBinary :: Integral a => a -> ShowS
-showBinary n r = 
+showBinary n r =
  showString "0b" $
  showIntAtBase 2 (toChr) n r
  where toChr d = chr (ord '0' + fromIntegral d)
 -}
 
-main = 
+main =
  do
   print (map (\ x -> showOct x []) [1..32])
   print (map (\ x -> showDec x []) [1..32])
diff --git a/libraries/base/tests/Numeric/num007.hs b/libraries/base/tests/Numeric/num007.hs
index 1c40ecfdbd..e02bd41d64 100644
--- a/libraries/base/tests/Numeric/num007.hs
+++ b/libraries/base/tests/Numeric/num007.hs
@@ -4,7 +4,7 @@ module Main(main) where
 
 import Numeric
 
-main = 
+main =
  do
   putStrLn (show (readOct "00000111"))
   putStrLn (show (readDec "00000111"))
diff --git a/libraries/base/tests/Numeric/num008.hs b/libraries/base/tests/Numeric/num008.hs
index 36158240b4..fa081321e0 100644
--- a/libraries/base/tests/Numeric/num008.hs
+++ b/libraries/base/tests/Numeric/num008.hs
@@ -6,24 +6,24 @@ import Numeric
 
 main = do
   let dbls   =  map (shEFloat (Just 7)) doubles
-  	     ++ map (shEFloat (Just 0)) doubles
-  	     ++ map (shEFloat Nothing)  doubles
-  	     ++ map (shFFloat (Just 7)) doubles
-  	     ++ map (shFFloat (Just 0)) doubles
-  	     ++ map (shFFloat Nothing)  doubles
-  	     ++ map (shGFloat (Just 7)) doubles
-  	     ++ map (shGFloat (Just 0)) doubles
-  	     ++ map (shGFloat Nothing)  doubles
+             ++ map (shEFloat (Just 0)) doubles
+             ++ map (shEFloat Nothing)  doubles
+             ++ map (shFFloat (Just 7)) doubles
+             ++ map (shFFloat (Just 0)) doubles
+             ++ map (shFFloat Nothing)  doubles
+             ++ map (shGFloat (Just 7)) doubles
+             ++ map (shGFloat (Just 0)) doubles
+             ++ map (shGFloat Nothing)  doubles
 
       flts   =  map (shEFloat (Just 7)) floats
-	     ++ map (shEFloat (Just 0)) floats
-	     ++ map (shEFloat Nothing)  floats
-	     ++ map (shFFloat (Just 7)) floats
-	     ++ map (shFFloat (Just 0)) floats
-	     ++ map (shFFloat Nothing)  floats
-	     ++ map (shGFloat (Just 7)) floats
-	     ++ map (shGFloat (Just 0)) floats
-	     ++ map (shGFloat Nothing)  floats
+             ++ map (shEFloat (Just 0)) floats
+             ++ map (shEFloat Nothing)  floats
+             ++ map (shFFloat (Just 7)) floats
+             ++ map (shFFloat (Just 0)) floats
+             ++ map (shFFloat Nothing)  floats
+             ++ map (shGFloat (Just 7)) floats
+             ++ map (shGFloat (Just 0)) floats
+             ++ map (shGFloat Nothing)  floats
 
   putStrLn (unlines dbls)
   putStrLn (unlines flts)
@@ -36,22 +36,22 @@ shGFloat p f = showGFloat p f ""
 
 doubles :: [ Double ]
 doubles = [ 0.0
-	  , 420
-	  ,  42
-	  ,   4.2
-	  ,   0.42
-	  ,   0.042
-	  , 1.82173691287639817263897126389712638972163
-	  , 1.82173691287639817263897126389712638972163e-300
-	  ]
+          , 420
+          ,  42
+          ,   4.2
+          ,   0.42
+          ,   0.042
+          , 1.82173691287639817263897126389712638972163
+          , 1.82173691287639817263897126389712638972163e-300
+          ]
 
 floats :: [ Float ]
 floats = [ 0.0
-	  , 420
-	  ,  42
-	  ,   4.2
-	  ,   0.42
-	  ,   0.042
-	  , 1.82173691287639817263897126389712638972163
-	  , 1.82173691287639817263897126389712638972163e-300
-	  ]
+          , 420
+          ,  42
+          ,   4.2
+          ,   0.42
+          ,   0.042
+          , 1.82173691287639817263897126389712638972163
+          , 1.82173691287639817263897126389712638972163e-300
+          ]
diff --git a/libraries/base/tests/unicode001.hs b/libraries/base/tests/unicode001.hs
index 90da1d80ee..ceac9a5265 100644
--- a/libraries/base/tests/unicode001.hs
+++ b/libraries/base/tests/unicode001.hs
@@ -11,36 +11,36 @@ main = do
  where
   do_char char = s ++ (take (12-length s) (repeat ' ')) ++ concat (map f bs)
     where
-	  s = show char
-	  bs = map ($char) functions
-	  f True  = "X     "
-	  f False = "      "
+          s = show char
+          bs = map ($char) functions
+          f True  = "X     "
+          f False = "      "
 
 strs = ["upper","lower","alpha","alnum","digit","print","space","cntrl"]
 
 functions = [isUpper,isLower,isAlpha,isAlphaNum,isDigit,isPrint,isSpace,isControl]
 
 chars = [backspace,tab,space,zero,lower_a,upper_a,delete,
-	right_pointing_double_angle_quotation_mark,
-	greek_capital_letter_alpha,
-	bengali_digit_zero,
-	en_space,
-	gothic_letter_ahsa,
-	monospaced_digit_zero
-	]
+        right_pointing_double_angle_quotation_mark,
+        greek_capital_letter_alpha,
+        bengali_digit_zero,
+        en_space,
+        gothic_letter_ahsa,
+        monospaced_digit_zero
+        ]
 
 backspace             = '\x08'
-tab		      = '\t'
-space		      = ' '
-zero		      = '0'
-lower_a		      = 'a'
-upper_a		      = 'A'
+tab                   = '\t'
+space                 = ' '
+zero                  = '0'
+lower_a               = 'a'
+upper_a               = 'A'
 delete                = '\x7f'
 right_pointing_double_angle_quotation_mark = '\xBB'
 latin_small_letter_i_with_caron = '\x1D0'
 combining_acute_accent = '\x301'
 greek_capital_letter_alpha = '\x0391'
 bengali_digit_zero    = '\x09E6'
-en_space 	      = '\x2002'
+en_space              = '\x2002'
 gothic_letter_ahsa    = '\x10330'
 monospaced_digit_zero = '\x1D7F6'
diff --git a/libraries/base/tests/unicode002.hs b/libraries/base/tests/unicode002.hs
index 50ed5ddf44..f7b9187971 100644
--- a/libraries/base/tests/unicode002.hs
+++ b/libraries/base/tests/unicode002.hs
@@ -41,4 +41,4 @@ main = do
     putStrLn header
     mapM (putStrLn . charCode) [ (chr 0) .. (chr 6553) ]
 
-  
+