haskoin-store 0.10.0 → 0.10.1

raw patch · 4 files changed

+14/−6 lines, 4 files

Files

CHANGELOG.md +8/−0
app/Main.hs +2/−2
haskoin-store.cabal +2/−2
src/Haskoin/Store.hs +2/−2

CHANGELOG.md view

@@ -4,6 +4,14 @@ 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.10.1+### Changed+- Fix bug where transaction lists from multiple addresses would sort incorrectly.++## 0.10.0+### Removed+- Remove addresses from transaction lists.+- No longer use container objects for xpub transactions.  ## 0.9.3 ### Added

app/Main.hs view

@@ -396,7 +396,7 @@                 withSnapshot db $ \s ->                     runResourceT . runConduit $                     mergeSourcesBy-                        (compare `on` blockTxBlock)+                        (flip compare `on` blockTxBlock)                         (map (\a ->                                   getAddressTxs                                       ( db@@ -435,7 +435,7 @@                 withSnapshot db $ \s ->                     runResourceT . runConduit $                     mergeSourcesBy-                        (compare `on` unspentBlock)+                        (flip compare `on` unspentBlock)                         (map (\a ->                                   getAddressUnspents                                       ( db

haskoin-store.cabal view

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 7f1d67d87786e3d207534c1ab8af4ee52a7b327ba26511cb15e04c90ade3131d+-- hash: bfc8c3b39761b49a5e557e59a48179eb6e89c7c52635052adc1366326f4161b6  name:           haskoin-store-version:        0.10.0+version:        0.10.1 synopsis:       Storage and index for Bitcoin and Bitcoin Cash description:    Store blocks, transactions, and balances for Bitcoin or Bitcoin Cash, and make that information via REST API. category:       Bitcoin, Finance, Network

src/Haskoin/Store.hs view

@@ -250,7 +250,7 @@         xs <- catMaybes <$> mapM (uncurry b) (as m n)         case xs of             [] -> return []-            _  -> (xs <>) <$> go m (n + 100)+            _  -> (xs <>) <$> go m (n + 20)     b a p =         g a >>= \case             Nothing -> return Nothing@@ -258,7 +258,7 @@     as m n =         map             (\(a, _, n') -> (a, [m, n']))-            (take 100 (deriveAddrs (pubSubKey xpub m) n))+            (take 20 (deriveAddrs (pubSubKey xpub m) n))  xpubTxs ::        (Monad m, BalanceRead i m, StoreStream i m)