hw-bits 0.7.2.0 → 0.7.2.1

raw patch · 12 files changed

+19/−12 lines, 12 filesdep ~bitvecdep ~doctestPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

Dependency ranges changed: bitvec, doctest

API changes (from Hackage documentation)

Files

• hw-bits.cabal +2/−2
• src/HaskellWorks/Data/Bits/BitRead.hs +7/−0
• src/HaskellWorks/Data/Bits/Writer/Storable.hs +1/−1
• test/HaskellWorks/Data/Bits/BitReadSpec.hs +1/−1
• test/HaskellWorks/Data/Bits/BitWiseSpec.hs +1/−1
• test/HaskellWorks/Data/Bits/Broadword/Word16Spec.hs +1/−1
• test/HaskellWorks/Data/Bits/Broadword/Word32Spec.hs +1/−1
• test/HaskellWorks/Data/Bits/Broadword/Word64Spec.hs +1/−1
• test/HaskellWorks/Data/Bits/Broadword/Word8Spec.hs +1/−1
• test/HaskellWorks/Data/Bits/FromBitTextByteStringSpec.hs +1/−1
• test/HaskellWorks/Data/Bits/Log2Spec.hs +1/−1
• test/HaskellWorks/Data/Bits/Writer/StorableSpec.hs +1/−1

@@ -1,7 +1,7 @@ cabal-version: 2.2  name:                   hw-bits-version:                0.7.2.0+version:                0.7.2.1 synopsis:               Bit manipulation description:            Please see README.md category:               Data, Bit@@ -135,7 +135,7 @@                       , vector   default-language:     Haskell2010   type:                 exitcode-stdio-1.0-  ghc-options:          -threaded+  ghc-options:          -threaded -rtsopts -with-rtsopts=-N   main-is:              DoctestDriver.hs   HS-Source-Dirs:       doctest   build-tool-depends:   doctest-discover:doctest-discover

@@ -4,6 +4,7 @@  module HaskellWorks.Data.Bits.BitRead   ( BitRead(..)+  , unsafeBitRead   ) where  import Data.Maybe@@ -22,6 +23,12 @@ class BitRead a where   -- | Read a bit string into a value   bitRead :: String -> Maybe a++-- | Read a bit string into a value.+--+-- This function is unsafe because it is a partial function that errors if the input string is an invaild bit string+unsafeBitRead :: BitRead a => String -> a+unsafeBitRead s = fromMaybe (error "Invalid bit string") (bitRead s)  bitRead' :: BitParse a => String -> Maybe a bitRead' s = fst `fmap` listToMaybe (parse bitParse0 (filter (/= ' ') s))

@@ -9,7 +9,7 @@ import qualified Data.STRef                   as ST import qualified Data.Vector.Storable.Mutable as DVSM -{-# ANN module ("HLint: ignore Reduce duplication" :: String) #-}+{- HLINT ignore "Reduce duplication"  -}  data Writer s = Writer   { vector   :: DVSM.MVector s Word64

@@ -15,7 +15,7 @@ import qualified Data.Vector         as DV import qualified Data.Vector.Unboxed as DVU -{-# ANN module ("HLint: ignore Redundant do" :: String) #-}+{- HLINT ignore "Reduce duplication"  -}  spec :: Spec spec = describe "HaskellWorks.Data.BitReadSpec" $ do

@@ -17,7 +17,7 @@ import qualified Hedgehog.Gen         as G import qualified Hedgehog.Range       as R -{-# ANN module ("HLint: ignore Redundant do" :: String) #-}+{- HLINT ignore "Reduce duplication"  -}  spec :: Spec spec = describe "HaskellWorks.Data.Bits.BitWiseSpec" $ do

@@ -11,7 +11,7 @@ import qualified Hedgehog.Gen                            as G import qualified Hedgehog.Range                          as R -{-# ANN module ("HLint: ignore Redundant do" :: String) #-}+{- HLINT ignore "Reduce duplication"  -}  spec :: Spec spec = describe "HaskellWorks.Data.Bits.Broadword.Word16" $ do

@@ -11,7 +11,7 @@ import qualified Hedgehog.Gen                            as G import qualified Hedgehog.Range                          as R -{-# ANN module ("HLint: ignore Redundant do" :: String) #-}+{- HLINT ignore "Reduce duplication"  -}  spec :: Spec spec = describe "HaskellWorks.Data.Bits.Broadword.Word32" $ do

@@ -11,7 +11,7 @@ import qualified Hedgehog.Gen                            as G import qualified Hedgehog.Range                          as R -{-# ANN module ("HLint: ignore Redundant do" :: String) #-}+{- HLINT ignore "Reduce duplication"  -}  spec :: Spec spec = describe "HaskellWorks.Data.Bits.Broadword.Word64" $ do

@@ -15,7 +15,7 @@ import qualified Hedgehog.Gen                           as G import qualified Hedgehog.Range                         as R -{-# ANN module ("HLint: ignore Redundant do" :: String) #-}+{- HLINT ignore "Reduce duplication"  -}  spec :: Spec spec = describe "HaskellWorks.Data.Bits.Broadword.Word8" $ do

@@ -17,7 +17,7 @@ import qualified Data.Vector.Storable as DVS import qualified Data.Vector.Unboxed  as DVU -{-# ANN module ("HLint: ignore Redundant do" :: String) #-}+{- HLINT ignore "Reduce duplication"  -}  spec :: Spec spec = describe "HaskellWorks.Data.Bits.FromBitTextByteStringSpec" $ do

@@ -11,7 +11,7 @@ import qualified Hedgehog.Gen   as G import qualified Hedgehog.Range as R -{-# ANN module ("HLint: ignore Redundant do" :: String) #-}+{- HLINT ignore "Reduce duplication"  -}  spec :: Spec spec = describe "HaskellWorks.Data.Bits.Log2Spec" $ do

@@ -11,7 +11,7 @@ import qualified Data.Vector.Storable                   as DVS import qualified HaskellWorks.Data.Bits.Writer.Storable as WS -{-# ANN module ("HLint: ignore Redundant do" :: String) #-}+{- HLINT ignore "Reduce duplication"  -}  spec :: Spec spec = describe "HaskellWorks.Data.Bits.Writer.StorableSpec" $ do