[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 29d1973bca555695f54c2c94a1984c4d55fa2fbb
Author: John Goerzen <jgoerzen at complete.org>
Date:   Sat Oct 14 02:57:13 2006 +0100

    More work

diff --git a/MissingH/Size.hs b/MissingH/Size.hs
index ea08a76..0650559 100644
--- a/MissingH/Size.hs
+++ b/MissingH/Size.hs
@@ -35,9 +35,9 @@ module MissingH.Size (
 where
 import Data.List
 
-data SizeOpts = SizeOpts { base :: Integer,
-                           powerIncr :: Integer,
-                           firstPower :: Integer,
+data SizeOpts = SizeOpts { base :: Int,
+                           powerIncr :: Int,
+                           firstPower :: Int,
                            suffixes :: String}
                            
 binaryOpts = SizeOpts {base = 2,
@@ -53,7 +53,7 @@ siOpts = SizeOpts {base = 10,
 renderNum opts 0.0 = (0, snd $ renderNum opts 1)
 renderNum opts number =
     (retnum, suffix)
-    where incrList = map idx2pwr [0..genericLength (suffixes opts) - 1]
+    where incrList = map idx2pwr [0..length (suffixes opts) - 1]
           incrIdxList = zip incrList [0..]
           idx2pwr i = i * powerIncr opts + firstPower opts
           
@@ -64,4 +64,4 @@ renderNum opts number =
                   Just x -> x
                   Nothing -> head incrIdxList
           suffix = (suffixes opts !! (fromIntegral expidx))
-          retnum = number / ((fromIntegral (base opts) ** (fromIntegral usedexp)))
\ No newline at end of file
+          retnum = number / ((fromIntegral (base opts) ** (fromIntegral usedexp)))

-- 
haskell-testpack