[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 8b87843b86156f211ee456bb6ebf8dfc980c514b
Author: John Goerzen <jgoerzen at complete.org>
Date:   Sat Oct 14 03:13:21 2006 +0100

    Made more readable

diff --git a/MissingH/Size.hs b/MissingH/Size.hs
index 594f06c..ead4964 100644
--- a/MissingH/Size.hs
+++ b/MissingH/Size.hs
@@ -58,11 +58,10 @@ renderNum opts inpnumber =
           incrList = map idx2pwr [0..length (suffixes opts) - 1]
           incrIdxList = zip incrList [0..]
           idx2pwr i = i * powerIncr opts + firstPower opts
-          
+          finderfunc (x, _) = (fromIntegral $ base opts) ** (fromIntegral x) 
+                              <= number
           (usedexp, expidx) =
-              case find 
-                  (\(x, _) -> (fromIntegral $ base opts) ** (fromIntegral x) <= number) 
-                  (reverse incrIdxList) of
+              case find finderfunc (reverse incrIdxList) of
                   Just x -> x
                   Nothing -> head incrIdxList
           suffix = (suffixes opts !! (fromIntegral expidx))

-- 
haskell-testpack