bits 0.3.1 → 0.3.2

raw patch · 3 files changed

+7/−3 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

CHANGELOG.markdown +4/−0
bits.cabal +1/−1
src/Data/Bits/Coding.hs +2/−2

CHANGELOG.markdown view

@@ -1,3 +1,7 @@+0.3.2+-----+* Bug fix for `getBit`+ 0.3.1 ----- * Fixed dependency bounds

bits.cabal view

@@ -1,6 +1,6 @@ name:          bits category:      Data, Serialization-version:       0.3.1+version:       0.3.2 license:       BSD3 cabal-version: >= 1.8 license-file:  LICENSE

src/Data/Bits/Coding.hs view

@@ -117,8 +117,8 @@ getBit :: MonadGet m => Coding m Bool getBit = Coding $ \ k i b ->   if i == 0-  then getWord8 >>= \b' -> ((k $! testBit b' 7) $! 7) $! shiftR b' 1-  else ((k $! testBit b 7) $! i - 1) $! shiftR b 1+  then getWord8 >>= \b' -> ((k $! testBit b' 7) $! 7) $! shiftL b' 1+  else ((k $! testBit b 7) $! i - 1) $! shiftL b 1 {-# INLINE getBit #-}  instance MonadGet m => MonadGet (Coding m) where