[commit: base] master: Remove now unnecessary helper function (c46611f)

[Daniel Fischer]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/base

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/c46611f5c7bc8c1a73029fe9250fe5f7314190f7

>---------------------------------------------------------------

commit c46611f5c7bc8c1a73029fe9250fe5f7314190f7
Author: Daniel Fischer <daniel.is.fischer at googlemail.com>
Date:   Thu Oct 6 11:16:39 2011 +0200

    Remove now unnecessary helper function

>---------------------------------------------------------------

 GHC/Float.lhs |    9 ---------
 1 files changed, 0 insertions(+), 9 deletions(-)

diff --git a/GHC/Float.lhs b/GHC/Float.lhs
index 542dd9c..68eed2c 100644
--- a/GHC/Float.lhs
+++ b/GHC/Float.lhs
@@ -860,15 +860,6 @@ fromRat' x = r
         (x', p') = if x0 >= xMax then (x0 / toRational b, p0+1) else (x0, p0)
         r = encodeFloat (round x') p'
 
--- We don't need this helper anymore, TODO: remove?
--- Scale x until xMin <= x < xMax, or p (the exponent) <= minExp.
-scaleRat :: Rational -> Int -> Rational -> Rational -> Int -> Rational -> (Rational, Int)
-scaleRat b minExp xMin xMax p x
- | x >= xMax   = scaleRat b minExp xMin xMax (p+1) (x/b)
- | p <= minExp = (x, p)
- | x < xMin    = scaleRat b minExp xMin xMax (p-1) (x*b)
- | otherwise   = (x, p)
-
 -- Exponentiation with a cache for the most common numbers.
 minExpt, maxExpt :: Int
 minExpt = 0