Whitespace only in tests

7 files changed, 48 insertions, 48 deletions

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
+          ]