haskoin-core 0.21.1 → 0.21.2

raw patch · 5 files changed

+14/−5 lines, 5 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

CHANGELOG.md +4/−0
haskoin-core.cabal +1/−1
src/Haskoin/Address/Base58.hs +2/−2
src/Haskoin/Constants.hs +2/−1
src/Haskoin/Util/Arbitrary/Util.hs +5/−1

CHANGELOG.md view

@@ -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.21.2+### Changed+- Serialisation test now works for both strict and lazy bytestrings.+ ## 0.21.1 ### Changed - Make Base58 faster.

haskoin-core.cabal view

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           haskoin-core-version:        0.21.1+version:        0.21.2 synopsis:       Bitcoin & Bitcoin Cash library for Haskell description:    Please see the README on GitHub at <https://github.com/haskoin/haskoin-core#readme> category:       Bitcoin, Finance, Network

src/Haskoin/Address/Base58.hs view

@@ -21,14 +21,14 @@ ) where  import Control.Monad+import Data.Array import Data.ByteString (ByteString) import qualified Data.ByteString as BS import qualified Data.ByteString.Char8 as C-import Data.Array-import Data.Char import Data.Bytes.Get import Data.Bytes.Put import Data.Bytes.Serial+import Data.Char import Data.Maybe (fromMaybe, isJust, listToMaybe) import Data.String.Conversions (cs) import Data.Text (Text)

src/Haskoin/Constants.hs view

@@ -15,7 +15,8 @@ Cash (BCH), and corresponding public test and private regression test networks. -} module Haskoin.Constants (-    Network(..),+    Network (..),+     -- * Constants     btc,     btcTest,

src/Haskoin/Util/Arbitrary/Util.hs view

@@ -38,6 +38,7 @@ import qualified Data.Aeson.Types as A import Data.ByteString (ByteString, pack) import qualified Data.ByteString.Short as BSS+import Data.ByteString.Lazy (fromStrict, toStrict) import Data.Bytes.Get import Data.Bytes.Put import Data.Bytes.Serial@@ -138,8 +139,11 @@     (Eq a, Show a, T.Typeable a, Serial a) => Gen a -> Spec testSerial gen =     prop ("Binary encoding/decoding identity for " <> name) $-        forAll gen $ \x ->+        forAll gen $ \x -> do+            (runGetL deserialize . runPutL . serialize) x `shouldBe` x+            (runGetL deserialize . fromStrict . runPutS . serialize) x `shouldBe` x             (runGetS deserialize . runPutS . serialize) x `shouldBe` Right x+            (runGetS deserialize . toStrict . runPutL . serialize) x `shouldBe` Right x   where     name = show $ T.typeRep $ proxy gen     proxy :: Gen a -> Proxy a