pinch 0.2.0.1 → 0.2.0.2

raw patch · 3 files changed

+9/−4 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Pinch: SomeValue :: !(Value a) -> SomeValue

- Pinch.Internal.Generic: instance GHC.Generics.Constructor Pinch.Internal.Generic.C1_0Enumeration

- Pinch.Internal.Generic: instance GHC.Generics.Constructor Pinch.Internal.Generic.C1_0Field

- Pinch.Internal.Generic: instance GHC.Generics.Constructor Pinch.Internal.Generic.C1_0Void

- Pinch.Internal.Generic: instance GHC.Generics.Datatype Pinch.Internal.Generic.D1Enumeration

- Pinch.Internal.Generic: instance GHC.Generics.Datatype Pinch.Internal.Generic.D1Field

- Pinch.Internal.Generic: instance GHC.Generics.Datatype Pinch.Internal.Generic.D1Void

- Pinch.Internal.Message: instance GHC.Generics.Constructor Pinch.Internal.Message.C1_0Message

- Pinch.Internal.Message: instance GHC.Generics.Constructor Pinch.Internal.Message.C1_0MessageType

- Pinch.Internal.Message: instance GHC.Generics.Constructor Pinch.Internal.Message.C1_1MessageType

- Pinch.Internal.Message: instance GHC.Generics.Constructor Pinch.Internal.Message.C1_2MessageType

- Pinch.Internal.Message: instance GHC.Generics.Constructor Pinch.Internal.Message.C1_3MessageType

- Pinch.Internal.Message: instance GHC.Generics.Datatype Pinch.Internal.Message.D1Message

- Pinch.Internal.Message: instance GHC.Generics.Datatype Pinch.Internal.Message.D1MessageType

- Pinch.Internal.Message: instance GHC.Generics.Selector Pinch.Internal.Message.S1_0_0Message

- Pinch.Internal.Message: instance GHC.Generics.Selector Pinch.Internal.Message.S1_0_1Message

- Pinch.Internal.Message: instance GHC.Generics.Selector Pinch.Internal.Message.S1_0_2Message

- Pinch.Internal.Message: instance GHC.Generics.Selector Pinch.Internal.Message.S1_0_3Message

- Pinch.Internal.TType: SomeTType :: TType a -> SomeTType

- Pinch.Internal.TType: TBinary :: TType TBinary

- Pinch.Internal.TType: TBool :: TType TBool

- Pinch.Internal.TType: TByte :: TType TByte

- Pinch.Internal.TType: TDouble :: TType TDouble

- Pinch.Internal.TType: TInt16 :: TType TInt16

- Pinch.Internal.TType: TInt32 :: TType TInt32

- Pinch.Internal.TType: TInt64 :: TType TInt64

- Pinch.Internal.TType: TList :: TType TList

- Pinch.Internal.TType: TMap :: TType TMap

- Pinch.Internal.TType: TSet :: TType TSet

- Pinch.Internal.TType: TStruct :: TType TStruct

- Pinch.Internal.Value: SomeValue :: !(Value a) -> SomeValue

- Pinch.Internal.Value: VBinary :: !ByteString -> Value TBinary

- Pinch.Internal.Value: VBool :: !Bool -> Value TBool

- Pinch.Internal.Value: VByte :: !Int8 -> Value TByte

- Pinch.Internal.Value: VDouble :: !Double -> Value TDouble

- Pinch.Internal.Value: VInt16 :: !Int16 -> Value TInt16

- Pinch.Internal.Value: VInt32 :: !Int32 -> Value TInt32

- Pinch.Internal.Value: VInt64 :: !Int64 -> Value TInt64

- Pinch.Internal.Value: VList :: !(FoldList (Value a)) -> Value TList

- Pinch.Internal.Value: VMap :: !(FoldList (MapItem k v)) -> Value TMap

- Pinch.Internal.Value: VSet :: !(FoldList (Value a)) -> Value TSet

- Pinch.Internal.Value: VStruct :: !(HashMap Int16 SomeValue) -> Value TStruct

+ Pinch: [SomeValue] :: (IsTType a) => !(Value a) -> SomeValue

+ Pinch: type Tag a = GTag (Rep a);

+ Pinch: type family Tag a;

+ Pinch: }

+ Pinch.Internal.Pinchable: type Tag a = GTag (Rep a);

+ Pinch.Internal.Pinchable: type family GTag f;

+ Pinch.Internal.Pinchable: }

+ Pinch.Internal.TType: [SomeTType] :: forall a. IsTType a => TType a -> SomeTType

+ Pinch.Internal.TType: [TBinary] :: TType TBinary

+ Pinch.Internal.TType: [TBool] :: TType TBool

+ Pinch.Internal.TType: [TByte] :: TType TByte

+ Pinch.Internal.TType: [TDouble] :: TType TDouble

+ Pinch.Internal.TType: [TInt16] :: TType TInt16

+ Pinch.Internal.TType: [TInt32] :: TType TInt32

+ Pinch.Internal.TType: [TInt64] :: TType TInt64

+ Pinch.Internal.TType: [TList] :: TType TList

+ Pinch.Internal.TType: [TMap] :: TType TMap

+ Pinch.Internal.TType: [TSet] :: TType TSet

+ Pinch.Internal.TType: [TStruct] :: TType TStruct

+ Pinch.Internal.Value: [SomeValue] :: (IsTType a) => !(Value a) -> SomeValue

+ Pinch.Internal.Value: [VBinary] :: !ByteString -> Value TBinary

+ Pinch.Internal.Value: [VBool] :: !Bool -> Value TBool

+ Pinch.Internal.Value: [VByte] :: !Int8 -> Value TByte

+ Pinch.Internal.Value: [VDouble] :: !Double -> Value TDouble

+ Pinch.Internal.Value: [VInt16] :: !Int16 -> Value TInt16

+ Pinch.Internal.Value: [VInt32] :: !Int32 -> Value TInt32

+ Pinch.Internal.Value: [VInt64] :: !Int64 -> Value TInt64

+ Pinch.Internal.Value: [VList] :: forall a. IsTType a => !(FoldList (Value a)) -> Value TList

+ Pinch.Internal.Value: [VMap] :: forall k v. (IsTType k, IsTType v) => !(FoldList (MapItem k v)) -> Value TMap

+ Pinch.Internal.Value: [VSet] :: forall a. IsTType a => !(FoldList (Value a)) -> Value TSet

+ Pinch.Internal.Value: [VStruct] :: !(HashMap Int16 SomeValue) -> Value TStruct

- Pinch: (.:) :: Pinchable a => Value TStruct -> Int16 -> Parser a

+ Pinch: (.:) :: forall a. Pinchable a => Value TStruct -> Int16 -> Parser a

- Pinch: (.:?) :: Pinchable a => Value TStruct -> Int16 -> Parser (Maybe a)

+ Pinch: (.:?) :: forall a. Pinchable a => Value TStruct -> Int16 -> Parser (Maybe a)

- Pinch: class IsTType (Tag a) => Pinchable a where type family Tag a Tag a = GTag (Rep a) pinch = genericPinch unpinch = genericUnpinch

+ Pinch: class IsTType (Tag a) => Pinchable a where type Tag a type Tag a = GTag (Rep a) pinch = genericPinch unpinch = genericUnpinch where {

- Pinch: pinch :: Pinchable a => a -> Value (Tag a)

+ Pinch: pinch :: (Pinchable a, Generic a, GPinchable (Rep a)) => a -> Value (GTag (Rep a))

- Pinch: unpinch :: Pinchable a => Value (Tag a) -> Parser a

+ Pinch: unpinch :: (Pinchable a, Generic a, GPinchable (Rep a)) => Value (GTag (Rep a)) -> Parser a

- Pinch.Internal.FoldList: mapM :: Traversable t => forall a (m :: * -> *) b. Monad m => (a -> m b) -> t a -> m (t b)

+ Pinch.Internal.FoldList: mapM :: Traversable t => forall (m :: * -> *) a b. Monad m => (a -> m b) -> t a -> m (t b)

- Pinch.Internal.Pinchable: (.:) :: Pinchable a => Value TStruct -> Int16 -> Parser a

+ Pinch.Internal.Pinchable: (.:) :: forall a. Pinchable a => Value TStruct -> Int16 -> Parser a

- Pinch.Internal.Pinchable: (.:?) :: Pinchable a => Value TStruct -> Int16 -> Parser (Maybe a)

+ Pinch.Internal.Pinchable: (.:?) :: forall a. Pinchable a => Value TStruct -> Int16 -> Parser (Maybe a)

- Pinch.Internal.Pinchable: class IsTType (GTag f) => GPinchable (f :: * -> *) where type family GTag f

+ Pinch.Internal.Pinchable: class IsTType (GTag f) => GPinchable (f :: * -> *) where type GTag f where {

- Pinch.Internal.Pinchable: class IsTType (Tag a) => Pinchable a where type family Tag a Tag a = GTag (Rep a) pinch = genericPinch unpinch = genericUnpinch

+ Pinch.Internal.Pinchable: class IsTType (Tag a) => Pinchable a where type Tag a type Tag a = GTag (Rep a) pinch = genericPinch unpinch = genericUnpinch where {

- Pinch.Internal.Pinchable: pinch :: Pinchable a => a -> Value (Tag a)

+ Pinch.Internal.Pinchable: pinch :: (Pinchable a, Generic a, GPinchable (Rep a)) => a -> Value (GTag (Rep a))

- Pinch.Internal.Pinchable: unpinch :: Pinchable a => Value (Tag a) -> Parser a

+ Pinch.Internal.Pinchable: unpinch :: (Pinchable a, Generic a, GPinchable (Rep a)) => Value (GTag (Rep a)) -> Parser a

- Pinch.Internal.TType: ttypeEqT :: (IsTType a, IsTType b) => Maybe (a :~: b)

+ Pinch.Internal.TType: ttypeEqT :: forall a b. (IsTType a, IsTType b) => Maybe (a :~: b)

- Pinch.Internal.Value: castValue :: (IsTType a, IsTType b) => Value a -> Maybe (Value b)

+ Pinch.Internal.Value: castValue :: forall a b. (IsTType a, IsTType b) => Value a -> Maybe (Value b)

Files

CHANGES.md +5/−0
pinch.cabal +2/−2
src/Pinch/Internal/Bits.hs +2/−2

CHANGES.md view

@@ -1,3 +1,8 @@+0.2.0.2+=======++-   Compile on 32-bit systems.+ 0.2.0.1 =======

pinch.cabal view

@@ -1,9 +1,9 @@--- This file has been generated from package.yaml by hpack version 0.13.0.+-- This file has been generated from package.yaml by hpack version 0.14.0. -- -- see: https://github.com/sol/hpack  name:           pinch-version:        0.2.0.1+version:        0.2.0.2 cabal-version:  >= 1.10 build-type:     Simple license:        BSD3

src/Pinch/Internal/Bits.hs view

@@ -18,7 +18,7 @@  #if defined(__GLASGOW_HASKELL__) && !defined(__HADDOCK__) import GHC.Base (Int (..), uncheckedShiftL#)-import GHC.Word (Word16 (..), Word32 (..), Word64 (..))+import GHC.Word (Word16 (..), Word32 (..), Word64 (..), uncheckedShiftL64#) #else import Data.Bits (shiftL) import Data.Word (Word16, Word32, Word64)@@ -38,7 +38,7 @@ #if defined(__GLASGOW_HASKELL__) && !defined(__HADDOCK__) w16ShiftL (W16# w) (I# i) = W16# (w `uncheckedShiftL#` i) w32ShiftL (W32# w) (I# i) = W32# (w `uncheckedShiftL#` i)-w64ShiftL (W64# w) (I# i) = W64# (w `uncheckedShiftL#` i)+w64ShiftL (W64# w) (I# i) = W64# (w `uncheckedShiftL64#` i) #else w16ShiftL = shiftL w32ShiftL = shiftL