summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Data/TrieMap/Rep/Instances.hs4
-rw-r--r--TrieMap.cabal2
2 files changed, 3 insertions, 3 deletions
diff --git a/Data/TrieMap/Rep/Instances.hs b/Data/TrieMap/Rep/Instances.hs
index 3a7b1d7..36760fe 100644
--- a/Data/TrieMap/Rep/Instances.hs
+++ b/Data/TrieMap/Rep/Instances.hs
@@ -198,8 +198,8 @@ toList64 xs = case BS.foldl c (Words 4 0, Seq.empty) xs of
fS w x = fromIntegral w `shiftL` x
(Words 0 w, xs) `c` w8
= (Words 3 (w .|. sL w8 24), xs |> w)
- (Words (i+1) w, xs) `c` w8
- = (Words i (w .|. sL w8 (8 * i)), xs)
+ (Words i' w, xs) `c` w8
+ = let !i = i' - 1 in (Words i (w .|. sL w8 (8 * i)), xs)
sL :: Word8 -> Int -> Word32
w `sL` x = fromIntegral w `shiftL` x
diff --git a/TrieMap.cabal b/TrieMap.cabal
index b9e5a66..e081bbb 100644
--- a/TrieMap.cabal
+++ b/TrieMap.cabal
@@ -1,5 +1,5 @@
name: TrieMap
-version: 0.6.1
+version: 0.6.2
tested-with: GHC
category: Algorithms
synopsis: Automatic type inference of generalized tries.