ratio-int 0.1.1 → 0.1.2

raw patch · 2 files changed

+9/−5 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Data/RatioInt.hs +8/−4
• ratio-int.cabal +1/−1

@@ -83,17 +83,21 @@                   | otherwise = (>= p + mid)  instance Storable RatioInt where-    sizeOf _ = let !sizeOfInt = sizeOf (undefined :: Int)-               in sizeOfInt + sizeOfInt+    sizeOf _ = sizeOfInt + sizeOfInt     {-# INLINE sizeOf #-}      alignment _ = alignment (undefined :: Int)     {-# INLINE alignment #-}      peek !ptr = let !ptr' = castPtr ptr-                in RatioInt <$> peek ptr' <*> peek (ptr' `plusPtr` 1)+                in RatioInt <$> peek ptr'+                            <*> peek (ptr' `plusPtr` sizeOfInt)     {-# INLINE peek #-}      poke !ptr !(RatioInt x y) = let !ptr' = castPtr ptr-                                in poke ptr' x >> poke (ptr' `plusPtr` 1) y+                                in poke ptr' x >>+                                   poke (ptr' `plusPtr` sizeOfInt) y     {-# INLINE poke #-}++sizeOfInt :: Int+sizeOfInt = sizeOf (undefined :: Int)

@@ -1,5 +1,5 @@ name:              ratio-int-version:           0.1.1+version:           0.1.2 license:           BSD3 author:            Raphael Javaux <raphaeljavaux[at]gmail.com> maintainer:        Raphael Javaux <raphaeljavaux[at]gmail.com>