[remove unused Prelude.Ratio, clean up exports of Prelude.IO
John Meacham <john@repetae.net>**20070828203502] hunk ./lib/base/Jhc/Inspection.hs 1
-{-# OPTIONS_JHC -fffi #-}
-module Jhc.Inspection where
-
-
-foreign import primitive indexToConstructor :: Int -> a
-foreign import primitive getConstructorIndex :: a -> Int
-foreign import primitive getConstructorName  :: a -> (String,String)
rmfile ./lib/base/Jhc/Inspection.hs
hunk ./lib/base/Prelude/IO.hs 7
-    module Prelude.IO,
-    userError) where
+    FilePath(),
+    putStr,
+    putStrLn,
+    print,
+    getLine,
+    getContents,
+    readFile,
+    interact,
+    writeFile,
+    appendFile,
+    readIO,
+    readLn,
+    putChar,
+    runExpr,
+    getChar,
+    userError
+    ) where
hunk ./lib/base/Prelude/Ratio.hs 1
-
-module Prelude.Ratio where
-
-data  (Integral a)      => Ratio a = !a :% !a
-type  Rational          =  Ratio Integer
-
--- "reduce" is a subsidiary function used only in this module.
--- It normalises a ratio by dividing both numerator
--- and denominator by their greatest common divisor.
---
--- E.g., 12 `reduce` 8    ==  3 :%   2
---       12 `reduce` (-8) ==  3 :% (-2)
-
-reduce _ 0              =  error "Ratio.% : zero denominator"
-reduce x y              =  (x `quot` d) :% (y `quot` d)
-                           where d = gcd x y
-
-instance  (Integral a)  => Ord (Ratio a)  where
-    (x:%y) <= (x':%y')  =  x * y' <= x' * y
-    (x:%y) <  (x':%y')  =  x * y' <  x' * y
-
---negateRatio (x:%y)       =  (-x) :% y
---(x:%y) `plusRatio` (x':%y')   =  reduce ((x*y') + (x'*y)) (y*y')
---absRatio (x:%y)          =  abs x :% y
-
-instance  (Integral a)  => Num (Ratio a)  where
-    --(+) = plusRatio
-    (x:%y) + (x':%y')   =  reduce (x*y' + x'*y) (y*y')
-    (x:%y) * (x':%y')   =  reduce (x * x') (y * y')
-    --negate x {-(x:%y)-}   =  negateRatio x -- (-x) :% y
-    negate (x:%y)       =  (-x) :% y
-    --abs (x:%y)        =  abs x :% y
-    abs (x:%y)          =  abs x :% y
-    signum (x:%y)       =  signum x :% 1
-    fromInteger x       =  fromInteger x :% 1
-
-{-
-instance  (Integral a)  => Real (Ratio a)  where
-    toRational x        =  toIntegral x :% 1
-
-instance  (Integral a)  => Fractional (Ratio a)  where
-    (x:%y) / (x':%y')   =  (x*y') :% (y*x')
-    recip (x:%y)        =  y :% x
-    fromRational (x:%y) =  fromInteger x :% fromInteger y
-
-instance  (Integral a)  => RealFrac (Ratio a)  where
-    properFraction (x:%y) = (fromIntegral q, r:%y)
-                            where (q,r) = quotRem x y
-
--}
-{-
-instance  (Integral a)  => Enum (Ratio a)  where
-    succ x           =  x+1
-    pred x           =  x-1
-    toEnum           =  fromIntegral
-    fromEnum         =  fromInteger . truncate	-- May overflow
---    enumFrom         =  numericEnumFrom		-- These numericEnumXXX functions
---    enumFromThen     =  numericEnumFromThen	-- are as defined in Prelude.hs
---    enumFromTo       =  numericEnumFromTo	-- but not exported from it!
---    enumFromThenTo   =  numericEnumFromThenTo
--}
-
-ratPrec = 0 -- FIXME
-
-instance  (Read a, Integral a)  => Read (Ratio a)  where
-    readsPrec p  =  readParen (p > ratPrec)
-                              (\r -> [(reduce (x * signum y) (abs y),u) | (x,s)   <- readsPrec (ratPrec+1) r,
-                                                ("%",t) <- lex s,
-                                                (y,u)   <- readsPrec (ratPrec+1) t ])
-
-instance  (Integral a)  => Show (Ratio a)  where
-    showsPrec p (x:%y)  =  showParen (p > ratPrec)
-                               (showsPrec (ratPrec+1) x .
-			        showString " % " .
-				showsPrec (ratPrec+1) y)
-
rmfile ./lib/base/Prelude/Ratio.hs
hunk ./lib/base/base.cabal 13
---                 Data.Dynamic,
hunk ./lib/base/base.cabal 17
---                 Data.Typeable,
hunk ./lib/base/base.cabal 45
-                 Prelude.Ratio,