summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--libraries/base/tests/CPUTime001.hs6
-rw-r--r--libraries/base/tests/Numeric/num002.hs2
-rw-r--r--libraries/base/tests/Numeric/num003.hs6
-rw-r--r--libraries/base/tests/Numeric/num004.hs6
-rw-r--r--libraries/base/tests/Numeric/num005.hs12
-rw-r--r--libraries/base/tests/Numeric/num006.hs4
-rw-r--r--libraries/base/tests/Numeric/num007.hs2
-rw-r--r--libraries/base/tests/Numeric/num008.hs64
-rw-r--r--libraries/base/tests/unicode001.hs34
-rw-r--r--libraries/base/tests/unicode002.hs2
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) ]
-
+
View Lorry Controller Status