From d1b881def2479cea816f47031c8a27f37d046b3c Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Mon, 3 Mar 2008 19:50:02 +0000 Subject: [PATCH] untabify --- Numeric.hs | 4 ++-- Prelude.hs | 22 +++++++++++----------- Setup.hs | 2 +- 3 files changed, 14 insertions(+), 14 deletions(-) diff --git a/Numeric.hs b/Numeric.hs index 4868a8d..4537f9b 100644 --- a/Numeric.hs +++ b/Numeric.hs @@ -47,7 +47,7 @@ module Numeric ( readHex, -- :: (Integral a) => ReadS a readFloat, -- :: (RealFloat a) => ReadS a - + lexDigits, -- :: ReadS String -- * Miscellaneous @@ -207,7 +207,7 @@ showIntAtBase base toChr n r 0 -> r' _ -> showIt (quotRem n base) r' where - c = toChr (fromIntegral d) + c = toChr (fromIntegral d) r' = c : r -- | Show /non-negative/ 'Integral' numbers in base 16. diff --git a/Prelude.hs b/Prelude.hs index 840c2ca..d6ed113 100644 --- a/Prelude.hs +++ b/Prelude.hs @@ -36,16 +36,16 @@ module Prelude ( fst, snd, curry, uncurry, #if defined(__NHC__) - []((:), []), -- Not legal Haskell 98; - -- ... available through built-in syntax - module Data.Tuple, -- Includes tuple types - ()(..), -- Not legal Haskell 98 - (->), -- ... available through built-in syntax + []((:), []), -- Not legal Haskell 98; + -- ... available through built-in syntax + module Data.Tuple, -- Includes tuple types + ()(..), -- Not legal Haskell 98 + (->), -- ... available through built-in syntax #endif #ifdef __HUGS__ - (:), -- Not legal Haskell 98 + (:), -- Not legal Haskell 98 #endif - + -- ** Basic type classes Eq((==), (/=)), Ord(compare, (<), (<=), (>=), (>), max, min), @@ -72,7 +72,7 @@ module Prelude ( isInfinite, isDenormalized, isIEEE, isNegativeZero, atan2), -- *** Numeric functions - subtract, even, odd, gcd, lcm, (^), (^^), + subtract, even, odd, gcd, lcm, (^), (^^), fromIntegral, realToFrac, -- ** Monads and functors @@ -87,7 +87,7 @@ module Prelude ( -- * List operations map, (++), filter, - head, last, tail, init, null, length, (!!), + head, last, tail, init, null, length, (!!), reverse, -- ** Reducing lists (folds) foldl, foldl1, foldr, foldr1, @@ -119,8 +119,8 @@ module Prelude ( -- ** Converting from @String@ ReadS, Read(readsPrec, readList), - reads, readParen, read, lex, - + reads, readParen, read, lex, + -- * Basic Input and output IO, -- ** Simple I\/O operations diff --git a/Setup.hs b/Setup.hs index 2ad48a4..2afec6f 100644 --- a/Setup.hs +++ b/Setup.hs @@ -53,7 +53,7 @@ build_primitive_sources f pd lbi uhs x maybeUpdateFile :: FilePath -> FilePath -> IO () maybeUpdateFile source target = do r <- rawSystem "cmp" ["-s" {-quiet-}, source, target] - case r of + case r of ExitSuccess -> removeFile source ExitFailure _ -> do try (removeFile target); renameFile source target -- 1.7.10.4