[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36

[John Goerzen]

The following commit has been merged in the master branch:
commit 17a6138acb36e1d9e493e23552a32e69f88b1857
Author: John Goerzen <jgoerzen at complete.org>
Date:   Sat Oct 14 02:08:58 2006 +0100

    A few first bugfixes

diff --git a/MissingH/Size.hs b/MissingH/Size.hs
index 045842e..d253cdf 100644
--- a/MissingH/Size.hs
+++ b/MissingH/Size.hs
@@ -51,7 +51,7 @@ siOpts = SizeOpts {base = 10,
                    powerIncr = 3}
 
 renderNum opts number =
-    return (retnum, suffix)
+    (retnum, suffix)
     where exponent = (logBase (fromIntegral $ base opts) number)::Double
           lastPower = (firstPower opts) + 
                       (genericLength(suffixes opts) - 1) * (powerIncr opts)
@@ -61,6 +61,6 @@ renderNum opts number =
                  else if exponent > fromIntegral lastPower
                       then lastPower
                       else (truncate exponent `div` (powerIncr opts)) * (powerIncr opts)
-          expidx = (usedexp - (firstPower opts)) `div` (base opts)
+          expidx = (usedexp - (firstPower opts)) `div` (powerIncr opts)
           suffix = (suffixes opts !! (fromIntegral expidx))
           retnum = number / ((fromIntegral (base opts) ** (fromIntegral usedexp)))
\ No newline at end of file

-- 
haskell-testpack