haskoin-store-data 0.47.2 → 0.47.3

raw patch · 3 files changed

+23/−20 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +4/−0
• haskoin-store-data.cabal +2/−2
• src/Haskoin/Store/Data.hs +17/−18

@@ -4,6 +4,10 @@ The format is based on [Keep a Changelog](http://keepachangelog.com/en/1.0.0/) and this project adheres to [Semantic Versioning](http://semver.org/spec/v2.0.0.html) +## 0.47.3+### Fixed+- Fix serialization bug with unspents.+ ## 0.47.2 ### Fixed - Fix serialization bug for health check.

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 26bfc2d99799fc52417601d4b2fa0ce25a5981df63ad79236d8567dba16d80cb+-- hash: 120e101c54350d43b5d4ca62bc4f525b79deb06f7a8344f3b5799d42c8db6a0b  name:           haskoin-store-data-version:        0.47.2+version:        0.47.3 synopsis:       Data for Haskoin Store description:    Please see the README on GitHub at <https://github.com/haskoin/haskoin-store#readme> category:       Bitcoin, Finance, Network

@@ -237,27 +237,26 @@  instance Serial XPubSpec where     serialize XPubSpec {xPubSpecKey = k, xPubDeriveType = t} = do-        serialize (xPubDepth k)-        serialize (xPubParent k)-        serialize (xPubIndex k)+        putWord8 (xPubDepth k)+        putWord32be (xPubParent k)+        putWord32be (xPubIndex k)         serialize (xPubChain k)         serialize (wrapPubKey True (xPubKey k))         serialize t     deserialize = do-        d <- deserialize-        p <- deserialize-        i <- deserialize+        d <- getWord8+        p <- getWord32be+        i <- getWord32be         c <- deserialize         k <- deserialize         t <- deserialize-        let x =-                XPubKey-                    { xPubDepth = d-                    , xPubParent = p-                    , xPubIndex = i-                    , xPubChain = c-                    , xPubKey = pubKeyPoint k-                    }+        let x = XPubKey+                { xPubDepth = d+                , xPubParent = p+                , xPubIndex = i+                , xPubChain = c+                , xPubKey = pubKeyPoint k+                }         return XPubSpec {xPubSpecKey = x, xPubDeriveType = t}  instance Serialize XPubSpec where@@ -511,14 +510,14 @@         serialize unspentBlock         serialize unspentPoint         putWord64be unspentAmount-        serialize unspentScript+        putLengthBytes unspentScript         putMaybe serialize unspentAddress      deserialize = do         unspentBlock <- deserialize         unspentPoint <- deserialize         unspentAmount <- getWord64be-        unspentScript <- deserialize+        unspentScript <- getLengthBytes         unspentAddress <- getMaybe deserialize         return Unspent{..} @@ -746,7 +745,7 @@     serialize StoreInput{..} = do         putWord8 0x01         serialize inputPoint-        serialize inputSequence+        putWord32be inputSequence         putLengthBytes inputSigScript         putLengthBytes inputPkScript         putWord64be inputAmount@@ -958,7 +957,7 @@         { outputAmount  :: !Word64         , outputScript  :: !ByteString         , outputSpender :: !(Maybe Spender)-        , outputAddr :: !(Maybe Address)+        , outputAddr    :: !(Maybe Address)         }     deriving (Show, Read, Eq, Ord, Generic, Hashable, NFData)