bitvec 0.1.0.1 → 0.1.0.2
raw patch · 2 files changed
+15/−5 lines, 2 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Data.Bit: instance Bits Bit
- Data.Bit: instance Integral Bit
- Data.Bit: instance Num Bit
- Data.Bit: instance Read Bit
- Data.Bit: instance Real Bit
- Data.Bit: instance Show Bit
+ Data.Bit: instance Data.Bits.Bits Data.Bit.Internal.Bit
+ Data.Bit: instance GHC.Num.Num Data.Bit.Internal.Bit
+ Data.Bit: instance GHC.Read.Read Data.Bit.Internal.Bit
+ Data.Bit: instance GHC.Real.Integral Data.Bit.Internal.Bit
+ Data.Bit: instance GHC.Real.Real Data.Bit.Internal.Bit
+ Data.Bit: instance GHC.Show.Show Data.Bit.Internal.Bit
- Data.Vector.Unboxed.Bit: all :: Num a => (a -> Bool) -> Vector Bit -> Bool
+ Data.Vector.Unboxed.Bit: all :: Num t => (t -> Bool) -> Vector Bit -> Bool
- Data.Vector.Unboxed.Bit: any :: Num a => (a -> Bool) -> Vector Bit -> Bool
+ Data.Vector.Unboxed.Bit: any :: Num t => (t -> Bool) -> Vector Bit -> Bool
- Data.Vector.Unboxed.Bit: findIndex :: Num a => (a -> Bool) -> Vector Bit -> Maybe Int
+ Data.Vector.Unboxed.Bit: findIndex :: Num t => (t -> Bool) -> Vector Bit -> Maybe Int
Files
bitvec.cabal view
@@ -1,5 +1,5 @@ name: bitvec-version: 0.1.0.1+version: 0.1.0.2 stability: experimental cabal-version: >= 1.9.2@@ -25,8 +25,13 @@ operations and some low-level ones suitable for building new bulk operations by viewing the bit-vector as a word vector. -tested-with: GHC == 6.10.4, GHC == 6.12.3, GHC == 7.0.4,- GHC == 7.2.1, GHC == 7.2.2, GHC == 7.4.1+tested-with: GHC == 7.0.4,+ GHC == 7.2.2,+ GHC == 7.4.2,+ GHC == 7.6.3,+ GHC == 7.8.4,+ GHC == 7.10.1,+ GHC == 7.11 source-repository head type: git
src/Data/Vector/Unboxed/Bit/Internal.hs view
@@ -1,6 +1,7 @@-{-# LANGUAGE TypeFamilies #-}-{-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE BangPatterns #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE MultiParamTypeClasses #-}+{-# LANGUAGE TypeFamilies #-} module Data.Vector.Unboxed.Bit.Internal ( Bit , U.Vector(BitVec)@@ -108,6 +109,10 @@ instance U.Unbox Bit instance MV.MVector U.MVector Bit where+#if MIN_VERSION_vector(0,11,0)+ basicInitialize (BitMVec _ _ v) = MV.basicInitialize v+#endif+ basicUnsafeNew n = liftM (BitMVec 0 n) (MV.basicUnsafeNew (nWords n)) basicUnsafeReplicate n x = liftM (BitMVec 0 n) (MV.basicUnsafeReplicate (nWords n) (extendToWord x))