data-serializer 0.3.4 → 0.3.4.1

raw patch · 2 files changed

+9/−6 lines, 2 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Data.Deserializer: instance (Data.Data.Data (μ α), Data.Typeable.Internal.Typeable α, Data.Typeable.Internal.Typeable μ) => Data.Data.Data (Data.Deserializer.BigEndianDeserializer μ α)

- Data.Deserializer: instance (Data.Data.Data (μ α), Data.Typeable.Internal.Typeable α, Data.Typeable.Internal.Typeable μ) => Data.Data.Data (Data.Deserializer.LittleEndianDeserializer μ α)

- Data.Deserializer: instance Data.Deserializer.Deserializable α => Data.Deserializer.Deserializable (GHC.Base.Maybe α)

- Data.Serializer: instance Data.Semigroup.Semigroup Data.Serializer.BinarySerializer

- Data.Serializer: instance Data.Semigroup.Semigroup Data.Serializer.CerealSerializer

- Data.Serializer: instance Data.Semigroup.Semigroup s => Data.Semigroup.Semigroup (Data.Serializer.BigEndianSerializer s)

- Data.Serializer: instance Data.Semigroup.Semigroup s => Data.Semigroup.Semigroup (Data.Serializer.LittleEndianSerializer s)

- Data.Serializer: instance Data.Serializer.Serializable α => Data.Serializer.Serializable (GHC.Base.Maybe α)

+ Data.Deserializer: instance (Data.Typeable.Internal.Typeable μ, Data.Typeable.Internal.Typeable α, Data.Data.Data (μ α)) => Data.Data.Data (Data.Deserializer.BigEndianDeserializer μ α)

+ Data.Deserializer: instance (Data.Typeable.Internal.Typeable μ, Data.Typeable.Internal.Typeable α, Data.Data.Data (μ α)) => Data.Data.Data (Data.Deserializer.LittleEndianDeserializer μ α)

+ Data.Deserializer: instance Data.Deserializer.Deserializable α => Data.Deserializer.Deserializable (GHC.Maybe.Maybe α)

+ Data.Serializer: instance Data.Serializer.Serializable α => Data.Serializer.Serializable (GHC.Maybe.Maybe α)

+ Data.Serializer: instance GHC.Base.Semigroup Data.Serializer.BinarySerializer

+ Data.Serializer: instance GHC.Base.Semigroup Data.Serializer.CerealSerializer

+ Data.Serializer: instance GHC.Base.Semigroup s => GHC.Base.Semigroup (Data.Serializer.BigEndianSerializer s)

+ Data.Serializer: instance GHC.Base.Semigroup s => GHC.Base.Semigroup (Data.Serializer.LittleEndianSerializer s)

- Data.Deserializer: deserializeH :: Deserializer μ => (forall μ'. (Deserializer μ') => μ' α) -> μ α

+ Data.Deserializer: deserializeH :: Deserializer μ => (forall μ'. Deserializer μ' => μ' α) -> μ α

- Data.Deserializer: deserializeIn :: Deserializer μ => Endian -> (forall μ'. (Deserializer μ') => μ' α) -> μ α

+ Data.Deserializer: deserializeIn :: Deserializer μ => Endian -> (forall μ'. Deserializer μ' => μ' α) -> μ α

- Data.Serializer: serializeH :: Serializer s => (forall s'. (Serializer s') => s') -> s

+ Data.Serializer: serializeH :: Serializer s => (forall s'. Serializer s' => s') -> s

- Data.Serializer: serializeIn :: Serializer s => Endian -> (forall s'. (Serializer s') => s') -> s

+ Data.Serializer: serializeIn :: Serializer s => Endian -> (forall s'. Serializer s' => s') -> s

data-serializer.cabal view

@@ -1,5 +1,5 @@ Name: data-serializer-Version: 0.3.4+Version: 0.3.4.1 Category: Data Stability: experimental Synopsis: Common API for serialization libraries@@ -20,7 +20,8 @@ Extra-Source-Files:   README.md -Tested-With: GHC==7.10.3, GHC==8.0.2, GHC==8.2.2, GHC==8.4.1+Tested-With: GHC==7.10.3, GHC==8.0.2, GHC==8.2.2, GHC==8.4.4, GHC==8.6.5,+             GHC==8.8.1  Cabal-Version: >= 1.10.0 Build-Type: Simple

src/Data/Deserializer.hs view

@@ -95,8 +95,10 @@ import Data.List.Split (splitOn) import Text.Parser.Combinators import Text.Parser.LookAhead-import Control.Applicative (Applicative(..), Alternative,-                            (<$>), (<$), (<*>), (*>), (<|>))+#if !MIN_VERSION_base(4,8,0)+import Control.Applicative (Applicative(..), (<$>), (<$), (<*>), (*>))+#endif+import Control.Applicative (Alternative, (<|>)) import Control.Monad (unless)  -- | Deserialization monad.@@ -243,7 +245,7 @@   skipMany p = ((True <$ p) <|> pure False) >>= \case                  True  → skipMany p                  False → return ()-  unexpected = fail+  unexpected = BinaryDeserializer . fail   {-# INLINE unexpected #-}   eof = BinaryDeserializer       $ B.isEmpty >>= \case@@ -312,7 +314,7 @@   skipMany p = ((True <$ p) <|> pure False) >>= \case                  True  → skipMany p                  False → return ()-  unexpected = fail+  unexpected = CerealDeserializer . fail   {-# INLINE unexpected #-}   eof = CerealDeserializer       $ ((False <$ S.lookAheadM (Nothing <$ S.getWord8)) <|>