hw-bits 0.7.1.3 → 0.7.1.4
raw patch · 2 files changed
+15/−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.BitShow: instance HaskellWorks.Data.Bits.BitShow.BitShow GHC.Int.Int16
+ HaskellWorks.Data.Bits.BitShow: instance HaskellWorks.Data.Bits.BitShow.BitShow GHC.Int.Int32
+ HaskellWorks.Data.Bits.BitShow: instance HaskellWorks.Data.Bits.BitShow.BitShow GHC.Int.Int64
+ HaskellWorks.Data.Bits.BitShow: instance HaskellWorks.Data.Bits.BitShow.BitShow GHC.Int.Int8
Files
- hw-bits.cabal +1/−1
- src/HaskellWorks/Data/Bits/BitShow.hs +14/−0
hw-bits.cabal view
@@ -1,7 +1,7 @@ cabal-version: 2.2 name: hw-bits-version: 0.7.1.3+version: 0.7.1.4 synopsis: Bit manipulation description: Please see README.md category: Data, Bit
src/HaskellWorks/Data/Bits/BitShow.hs view
@@ -1,11 +1,13 @@ {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE ScopedTypeVariables #-}+{-# LANGUAGE TypeApplications #-} module HaskellWorks.Data.Bits.BitShow ( BitShow(..) , bitShow ) where +import Data.Int import Data.Word import GHC.Exts import HaskellWorks.Data.Bits.BitWise@@ -46,6 +48,18 @@ instance BitShow Word64 where bitShows w = case leSplit w of (a, b) -> bitShows a . (' ':) . bitShows b++instance BitShow Int8 where+ bitShows = bitShows . fromIntegral @Int8 @Word8++instance BitShow Int16 where+ bitShows = bitShows . fromIntegral @Int16 @Word16++instance BitShow Int32 where+ bitShows = bitShows . fromIntegral @Int32 @Word32++instance BitShow Int64 where+ bitShows = bitShows . fromIntegral @Int64 @Word64 instance BitShow [Bool] where bitShows ws = ('\"':) . go (0 :: Int) ws . ('\"':)