binary-strict 0.4.8.2 → 0.4.8.3
raw patch · 4 files changed
+19/−4 lines, 4 filesdep ~basedep ~mtlPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: base, mtl
API changes (from Hackage documentation)
- Data.Binary.BitBuilder: instance Monoid BitBuilder
- Data.Binary.BitBuilder: instance Show BitBuilder
- Data.Binary.BitPut: instance Functor BitPutM
- Data.Binary.BitPut: instance Monad BitPutM
- Data.Binary.BitPut: instance Monad m => Functor (BitPutT m)
- Data.Binary.BitPut: instance Monad m => Monad (BitPutT m)
- Data.Binary.BitPut: instance MonadError e m => MonadError e (BitPutT m)
- Data.Binary.BitPut: instance MonadTrans BitPutT
- Data.Binary.Strict.BitGet: instance Monad BitGet
- Data.Binary.Strict.BitGet: instance Show Direction
- Data.Binary.Strict.ByteSet: instance Show ByteSet
- Data.Binary.Strict.Get: instance Alternative Get
- Data.Binary.Strict.Get: instance Applicative Get
- Data.Binary.Strict.Get: instance BinaryParser Get
- Data.Binary.Strict.Get: instance Functor Get
- Data.Binary.Strict.Get: instance Monad Get
- Data.Binary.Strict.Get: instance MonadPlus Get
- Data.Binary.Strict.IncrementalGet: instance Alternative (Get r)
- Data.Binary.Strict.IncrementalGet: instance Applicative (Get r)
- Data.Binary.Strict.IncrementalGet: instance BinaryParser (Get r)
- Data.Binary.Strict.IncrementalGet: instance Functor (Get r)
- Data.Binary.Strict.IncrementalGet: instance Monad (Get r)
- Data.Binary.Strict.IncrementalGet: instance MonadPlus (Get r)
- Data.Binary.Strict.IncrementalGet: instance Show (IResult a)
- Data.Binary.Strict.IncrementalGet: instance Show a => Show (Result a)
+ Data.Binary.BitBuilder: instance GHC.Base.Monoid Data.Binary.BitBuilder.BitBuilder
+ Data.Binary.BitBuilder: instance GHC.Show.Show Data.Binary.BitBuilder.BitBuilder
+ Data.Binary.BitPut: instance Control.Monad.Error.Class.MonadError e m => Control.Monad.Error.Class.MonadError e (Data.Binary.BitPut.BitPutT m)
+ Data.Binary.BitPut: instance Control.Monad.Trans.Class.MonadTrans Data.Binary.BitPut.BitPutT
+ Data.Binary.BitPut: instance GHC.Base.Applicative Data.Binary.BitPut.BitPutM
+ Data.Binary.BitPut: instance GHC.Base.Functor Data.Binary.BitPut.BitPutM
+ Data.Binary.BitPut: instance GHC.Base.Monad Data.Binary.BitPut.BitPutM
+ Data.Binary.BitPut: instance GHC.Base.Monad m => GHC.Base.Applicative (Data.Binary.BitPut.BitPutT m)
+ Data.Binary.BitPut: instance GHC.Base.Monad m => GHC.Base.Functor (Data.Binary.BitPut.BitPutT m)
+ Data.Binary.BitPut: instance GHC.Base.Monad m => GHC.Base.Monad (Data.Binary.BitPut.BitPutT m)
+ Data.Binary.Strict.BitGet: instance GHC.Base.Applicative Data.Binary.Strict.BitGet.BitGet
+ Data.Binary.Strict.BitGet: instance GHC.Base.Functor Data.Binary.Strict.BitGet.BitGet
+ Data.Binary.Strict.BitGet: instance GHC.Base.Monad Data.Binary.Strict.BitGet.BitGet
+ Data.Binary.Strict.BitGet: instance GHC.Show.Show Data.Binary.Strict.BitGet.Direction
+ Data.Binary.Strict.ByteSet: instance GHC.Show.Show Data.Binary.Strict.ByteSet.ByteSet
+ Data.Binary.Strict.Get: instance Data.Binary.Strict.Class.BinaryParser Data.Binary.Strict.Get.Get
+ Data.Binary.Strict.Get: instance GHC.Base.Alternative Data.Binary.Strict.Get.Get
+ Data.Binary.Strict.Get: instance GHC.Base.Applicative Data.Binary.Strict.Get.Get
+ Data.Binary.Strict.Get: instance GHC.Base.Functor Data.Binary.Strict.Get.Get
+ Data.Binary.Strict.Get: instance GHC.Base.Monad Data.Binary.Strict.Get.Get
+ Data.Binary.Strict.Get: instance GHC.Base.MonadPlus Data.Binary.Strict.Get.Get
+ Data.Binary.Strict.IncrementalGet: instance Data.Binary.Strict.Class.BinaryParser (Data.Binary.Strict.IncrementalGet.Get r)
+ Data.Binary.Strict.IncrementalGet: instance GHC.Base.Alternative (Data.Binary.Strict.IncrementalGet.Get r)
+ Data.Binary.Strict.IncrementalGet: instance GHC.Base.Applicative (Data.Binary.Strict.IncrementalGet.Get r)
+ Data.Binary.Strict.IncrementalGet: instance GHC.Base.Functor (Data.Binary.Strict.IncrementalGet.Get r)
+ Data.Binary.Strict.IncrementalGet: instance GHC.Base.Monad (Data.Binary.Strict.IncrementalGet.Get r)
+ Data.Binary.Strict.IncrementalGet: instance GHC.Base.MonadPlus (Data.Binary.Strict.IncrementalGet.Get r)
+ Data.Binary.Strict.IncrementalGet: instance GHC.Show.Show (Data.Binary.Strict.IncrementalGet.IResult a)
+ Data.Binary.Strict.IncrementalGet: instance GHC.Show.Show a => GHC.Show.Show (Data.Binary.Strict.IncrementalGet.Result a)
- Data.Binary.BitPut: putBitT :: Monad m => Bool -> BitPutT m ()
+ Data.Binary.BitPut: putBitT :: (Monad m) => Bool -> BitPutT m ()
Files
- binary-strict.cabal +3/−3
- src/Data/Binary/BitBuilder.hs +1/−1
- src/Data/Binary/BitPut.hs +8/−0
- src/Data/Binary/Strict/BitGet.hs +7/−0
binary-strict.cabal view
@@ -1,5 +1,5 @@ name: binary-strict-version: 0.4.8.2+version: 0.4.8.3 license: BSD3 license-file: LICENSE author: Lennart Kolmodin <kolmodin@dtek.chalmers.se>@@ -16,7 +16,7 @@ category: Data, Parsing build-depends: base<5, containers, array, bytestring>=0.9 stability: provisional-tested-with: GHC == 7.8.3+tested-with: GHC == 7.10.2 exposed-modules: Data.Binary.BitPut Data.Binary.Strict.ByteSet Data.Binary.Strict.BitGet,@@ -31,4 +31,4 @@ extra-source-files: tests/BitGetTest.hs, src/Data/Binary/Strict/Common.h ghc-options: -Wall -fno-warn-name-shadowing build-type: Simple-build-depends: mtl >= 2.1 && <2.2+build-depends: mtl >= 2.1 && <2.3
src/Data/Binary/BitBuilder.hs view
@@ -53,7 +53,7 @@ import Data.Binary.Strict.BitUtil #if defined(__GLASGOW_HASKELL__) && !defined(__HADDOCK__)-import GHC.Base+import GHC.Base hiding ( empty, foldr ) #endif ------------------------------------------------------------------------
src/Data/Binary/BitPut.hs view
@@ -49,6 +49,10 @@ instance Functor BitPutM where fmap f m = BitPutM (let (a, w) = unPut m in (f a, w)) +instance Applicative BitPutM where+ pure = return+ (<*>) = ap+ instance Monad BitPutM where return a = BitPutM (a,BB.empty) m >>= k = BitPutM (let (a, w) = unPut m@@ -100,6 +104,10 @@ fmap f m = BitPutT $ do ~(x, w) <- unPutT m return (f x, w)++instance Monad m => Applicative (BitPutT m) where+ pure = return+ (<*>) = ap instance Monad m => Monad (BitPutT m) where return a = BitPutT $ return (a, BB.empty)
src/Data/Binary/Strict/BitGet.hs view
@@ -78,6 +78,13 @@ newtype BitGet a = BitGet { unGet :: S -> (Either String a, S) } +instance Functor BitGet where+ fmap = liftM++instance Applicative BitGet where+ pure = return+ (<*>) = ap+ instance Monad BitGet where return a = BitGet (\s -> (Right a, s)) m >>= k = BitGet (\s -> case unGet m s of