hw-bits 0.0.0.9 → 0.0.0.10
raw patch · 3 files changed
+15/−1 lines, 3 filesPVP: minor bump suggested
API additions: PVP suggests at least a minor version bump
API changes (from Hackage documentation)
+ HaskellWorks.Data.Bits.AllExcess.AllExcess0: instance HaskellWorks.Data.Bits.AllExcess.AllExcess0.AllExcess0 [GHC.Types.Bool]
+ HaskellWorks.Data.Bits.AllExcess.AllExcess1: instance HaskellWorks.Data.Bits.AllExcess.AllExcess1.AllExcess1 [GHC.Types.Bool]
Files
- hw-bits.cabal +1/−1
- src/HaskellWorks/Data/Bits/AllExcess/AllExcess0.hs +7/−0
- src/HaskellWorks/Data/Bits/AllExcess/AllExcess1.hs +7/−0
hw-bits.cabal view
@@ -1,5 +1,5 @@ name: hw-bits-version: 0.0.0.9+version: 0.0.0.10 synopsis: Conduits for tokenizing streams. description: Please see README.md homepage: http://github.com/haskell-works/hw-bits#readme
src/HaskellWorks/Data/Bits/AllExcess/AllExcess0.hs view
@@ -11,6 +11,13 @@ class AllExcess0 a where allExcess0 :: a -> Int +instance AllExcess0 [Bool] where+ allExcess0 = go 0+ where go n (False:ys) = go (n + 1) ys+ go n (True :ys) = go (n - 1) ys+ go n _ = n+ {-# INLINE allExcess0 #-}+ instance AllExcess0 Word8 where allExcess0 w = fromIntegral (popCount0 w) - fromIntegral (popCount1 w) {-# INLINE allExcess0 #-}
src/HaskellWorks/Data/Bits/AllExcess/AllExcess1.hs view
@@ -11,6 +11,13 @@ class AllExcess1 a where allExcess1 :: a -> Int +instance AllExcess1 [Bool] where+ allExcess1 = go 0+ where go n (True :ys) = go (n + 1) ys+ go n (False:ys) = go (n - 1) ys+ go n _ = n+ {-# INLINE allExcess1 #-}+ instance AllExcess1 Word8 where allExcess1 w = fromIntegral (popCount1 w) - fromIntegral (popCount0 w) {-# INLINE allExcess1 #-}