Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master
http://hackage.haskell.org/trac/ghc/changeset/39fa61044c945034190a16e5e5317daeca57eead >--------------------------------------------------------------- commit 39fa61044c945034190a16e5e5317daeca57eead Author: Ian Lynagh <[email protected]> Date: Sat Nov 19 22:42:42 2011 +0000 Whitespace only in tests >--------------------------------------------------------------- tests/Numeric/num005.hs | 4 +- tests/Numeric/num008.hs | 64 +++++++++++++++++++++++----------------------- tests/unicode001.hs | 34 ++++++++++++------------ 3 files changed, 51 insertions(+), 51 deletions(-) diff --git a/tests/CPUTime001.hs b/tests/CPUTime001.hs index 6c43c57..122e9ca 100644 diff --git a/tests/Numeric/num002.hs b/tests/Numeric/num002.hs index 31ea76c..8879607 100644 diff --git a/tests/Numeric/num003.hs b/tests/Numeric/num003.hs index 368be25..01ca492 100644 diff --git a/tests/Numeric/num004.hs b/tests/Numeric/num004.hs index 0eb2bee..8159988 100644 diff --git a/tests/Numeric/num005.hs b/tests/Numeric/num005.hs index ef647a6..49ed092 100644 --- a/tests/Numeric/num005.hs +++ b/tests/Numeric/num005.hs @@ -10,8 +10,8 @@ main = present str f ls = sequence (map (\ v -> putStr ('\n':str ++ ' ': v ++ - " = " ++ - (show (f v)))) ls) + " = " ++ + (show (f v)))) ls) in do present "(readDec::ReadS Integer)" (readDec::ReadS Integer) ls diff --git a/tests/Numeric/num006.hs b/tests/Numeric/num006.hs index f421ed7..65347dd 100644 diff --git a/tests/Numeric/num007.hs b/tests/Numeric/num007.hs index 1c40ecf..e02bd41 100644 diff --git a/tests/Numeric/num008.hs b/tests/Numeric/num008.hs index 3615824..fa08132 100644 --- a/tests/Numeric/num008.hs +++ b/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/tests/unicode001.hs b/tests/unicode001.hs index 90da1d8..ceac9a5 100644 --- a/tests/unicode001.hs +++ b/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/tests/unicode002.hs b/tests/unicode002.hs index 50ed5dd..f7b9187 100644 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
