[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 272585eb32be25bee56b60d002327b4efa82ebca
Author: John Goerzen <jgoerzen at complete.org>
Date:   Sat Oct 14 02:52:02 2006 +0100

    Additional bugfixes

diff --git a/MissingH/Size.hs b/MissingH/Size.hs
index c909c49..ea08a76 100644
--- a/MissingH/Size.hs
+++ b/MissingH/Size.hs
@@ -62,6 +62,6 @@ renderNum opts number =
                   (\(x, _) -> (fromIntegral $ base opts) ** (fromIntegral x) <= number) 
                   (reverse incrIdxList) of
                   Just x -> x
-                  Nothing -> last incrIdxList
+                  Nothing -> head incrIdxList
           suffix = (suffixes opts !! (fromIntegral expidx))
           retnum = number / ((fromIntegral (base opts) ** (fromIntegral usedexp)))
\ No newline at end of file

-- 
haskell-testpack