From 3b9a84b97904f6af2e00ab66eabf5044ca2e3e52 Mon Sep 17 00:00:00 2001 From: Henning Guenther Date: Sat, 19 Jan 2008 16:21:17 -0800 Subject: [PATCH] Fixed BootString error darcs-hash:20080120002117-a4fee-6b3d8f1bc4dece6960c9319387f5fccca41620b4 --- Data/Encoding/BootString.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Data/Encoding/BootString.hs b/Data/Encoding/BootString.hs index f413f1e..cb7cdc7 100644 --- a/Data/Encoding/BootString.hs +++ b/Data/Encoding/BootString.hs @@ -70,7 +70,7 @@ adapt bs delta numpoints firsttime = let delta2 = delta1 + (delta1 `div` numpoints) (rd,rk) = head $ filter ((<=((base bs - tmin bs) * (tmax bs)) `div` 2).fst) - $ iterate (\(d,k) -> (d `div` (base bs - tmin bs),k+1)) (delta2,0) + $ iterate (\(d,k) -> (d `div` (base bs - tmin bs),k+(base bs))) (delta2,0) in rk + (((base bs - tmin bs +1) * rd) `div` (rd + skew bs)) decodeValue :: BootString -> Int -> Int -> Int -> Int -> [Int] -> (Int,[Int])