hw-bits 0.7.1.2 → 0.7.1.3
raw patch · 2 files changed
+30/−1 lines, 2 filesPVP: minor bump suggested
API additions: PVP suggests at least a minor version bump
API changes (from Hackage documentation)
+ HaskellWorks.Data.Bits.BitWise: instance HaskellWorks.Data.Bits.BitWise.Shift GHC.Int.Int16
+ HaskellWorks.Data.Bits.BitWise: instance HaskellWorks.Data.Bits.BitWise.Shift GHC.Int.Int32
+ HaskellWorks.Data.Bits.BitWise: instance HaskellWorks.Data.Bits.BitWise.Shift GHC.Int.Int64
+ HaskellWorks.Data.Bits.BitWise: instance HaskellWorks.Data.Bits.BitWise.Shift GHC.Int.Int8
Files
- hw-bits.cabal +1/−1
- src/HaskellWorks/Data/Bits/BitWise.hs +29/−0
hw-bits.cabal view
@@ -1,7 +1,7 @@ cabal-version: 2.2 name: hw-bits-version: 0.7.1.2+version: 0.7.1.3 synopsis: Bit manipulation description: Please see README.md category: Data, Bit
src/HaskellWorks/Data/Bits/BitWise.hs view
@@ -10,6 +10,7 @@ , TestBit(..) ) where +import Data.Int import Data.Word import HaskellWorks.Data.AtIndex import HaskellWorks.Data.Bits.BitLength@@ -248,6 +249,34 @@ {-# INLINE all1s #-} instance Shift Int where+ (.<.) w n = B.shiftL w (fromIntegral n)+ {-# INLINE (.<.) #-}++ (.>.) w n = B.shiftR w (fromIntegral n)+ {-# INLINE (.>.) #-}++instance Shift Int8 where+ (.<.) w n = B.shiftL w (fromIntegral n)+ {-# INLINE (.<.) #-}++ (.>.) w n = B.shiftR w (fromIntegral n)+ {-# INLINE (.>.) #-}++instance Shift Int16 where+ (.<.) w n = B.shiftL w (fromIntegral n)+ {-# INLINE (.<.) #-}++ (.>.) w n = B.shiftR w (fromIntegral n)+ {-# INLINE (.>.) #-}++instance Shift Int32 where+ (.<.) w n = B.shiftL w (fromIntegral n)+ {-# INLINE (.<.) #-}++ (.>.) w n = B.shiftR w (fromIntegral n)+ {-# INLINE (.>.) #-}++instance Shift Int64 where (.<.) w n = B.shiftL w (fromIntegral n) {-# INLINE (.<.) #-}