haskoin-store-data 0.52.5 → 0.52.6

raw patch · 3 files changed

+14/−10 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 +8/−8

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.52.6+### Changed+- Use rationals for Blockchain.info export-history endpoint arithmetics.+ ## 0.52.5 ### Added - Support for Blockchain.info export-history endpoint.

haskoin-store-data.cabal view

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 76582ece19c7f731811889eb943a5a281e48f5339b4ea24910f122b90326ba8c+-- hash: 9e77d20377455e8ad001eb7c7c5a39002f65f14e46954075ce6dba24f521cd96  name:           haskoin-store-data-version:        0.52.5+version:        0.52.6 synopsis:       Data for Haskoin Store description:    Please see the README on GitHub at <https://github.com/haskoin/haskoin-store#readme> category:       Bitcoin, Finance, Network

src/Haskoin/Store/Data.hs view

@@ -3113,11 +3113,11 @@     , binfoHistoryType =             if satoshi <= 0 then "sent" else "received"     , binfoHistoryAmount =-            fromIntegral satoshi / (100 * 1000 * 1000)+            fromRational v     , binfoHistoryValueThen =-            v1+            fromRational v1     , binfoHistoryValueNow =-            v2+            fromRational v2     , binfoHistoryExchangeRateThen =             rate_then     , binfoHistoryTx =@@ -3125,11 +3125,11 @@     }   where     t = posixSecondsToUTCTime (realToFrac timestamp)-    v = toInteger satoshi-    r = round (rate_then * 100)-    n = round (rate_now * 100)-    v1 = fromIntegral (v * r) / (100 * 100 * 1000 * 1000)-    v2 = fromIntegral (v * n) / (100 * 100 * 1000 * 1000)+    v = toRational satoshi / (100 * 1000 * 1000)+    r1 = toRational rate_then+    r2 = toRational rate_now+    v1 = v * r1+    v2 = v * r2  newtype BinfoDate = BinfoDate Word64     deriving (Eq, Show, Read, Generic, NFData)