storable-record 0.0.6 → 0.0.7

raw patch · 2 files changed

+19/−3 lines, 2 files

Files

• src/Foreign/Storable/Record/Tuple.hs +16/−0
• storable-record.cabal +3/−3

@@ -29,6 +29,10 @@   instance Storable a => Store.Storable (Tuple a) where+   {-# INLINABLE sizeOf #-}+   {-# INLINABLE alignment #-}+   {-# INLINABLE peek #-}+   {-# INLINABLE poke #-}    sizeOf = sizeOf . getTuple    alignment = alignment . getTuple    peek = fmap Tuple . peek . castPtr@@ -42,6 +46,10 @@    poke :: Ptr a -> a -> IO ()  instance (Store.Storable a, Store.Storable b) => Storable (a,b) where+   {-# INLINABLE sizeOf #-}+   {-# INLINABLE alignment #-}+   {-# INLINABLE peek #-}+   {-# INLINABLE poke #-}    sizeOf    = Record.sizeOf storePair    alignment = Record.alignment storePair    peek      = Record.peek storePair@@ -61,6 +69,10 @@ instance    (Store.Storable a, Store.Storable b, Store.Storable c) =>       Storable (a,b,c) where+   {-# INLINABLE sizeOf #-}+   {-# INLINABLE alignment #-}+   {-# INLINABLE peek #-}+   {-# INLINABLE poke #-}    sizeOf    = Record.sizeOf storeTriple    alignment = Record.alignment storeTriple    peek      = Record.peek storeTriple@@ -80,6 +92,10 @@ instance    (Store.Storable a, Store.Storable b, Store.Storable c, Store.Storable d) =>       Storable (a,b,c,d) where+   {-# INLINABLE sizeOf #-}+   {-# INLINABLE alignment #-}+   {-# INLINABLE peek #-}+   {-# INLINABLE poke #-}    sizeOf    = Record.sizeOf storeQuadruple    alignment = Record.alignment storeQuadruple    peek      = Record.peek storeQuadruple

@@ -1,6 +1,6 @@ Cabal-Version: 2.2 Name:         storable-record-Version:      0.0.6+Version:      0.0.7 Category:     Data, Foreign Synopsis:     Elegant definition of Storable instances for records Description:@@ -63,7 +63,7 @@ Source-Repository this   Type:     darcs   Location: http://code.haskell.org/~thielema/storable-record/-  Tag:      0.0.6+  Tag:      0.0.7  Flag splitBase   description: Choose the new smaller, split-up base package.@@ -75,7 +75,7 @@ Library   Build-Depends:     QuickCheck >=2 && <3,-    transformers >=0.2 && <0.6,+    transformers >=0.2 && <0.7,     semigroups >=0.1 && <1.0,     utility-ht >=0.0.14 && <0.1   If flag(splitBase)