packages feed

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 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 #-}