haskoin-store 0.40.15 → 0.40.16

raw patch · 2 files changed

+10/−10 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• haskoin-store.cabal +1/−1
• src/Haskoin/Store/Cache.hs +9/−9

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           haskoin-store-version:        0.40.15+version:        0.40.16 synopsis:       Storage and index for Bitcoin and Bitcoin Cash description:    Please see the README on GitHub at <https://github.com/haskoin/haskoin-store#readme> category:       Bitcoin, Finance, Network

@@ -675,15 +675,15 @@ importBlockC bh =     withLockForever $     cacheGetHead >>= \case-    Nothing -> return ()-    Just cb ->-        asks cacheChain >>= \ch ->-        chainGetBlock bh ch >>= \case-        Nothing -> return ()-        Just bn ->-            if prevBlock (nodeHeader bn) == cb-            then go-            else return ()+        Nothing -> go+        Just cb ->+            asks cacheChain >>= \ch ->+            chainGetBlock bh ch >>= \case+                Nothing -> return ()+                Just bn ->+                    if prevBlock (nodeHeader bn) == cb+                    then go+                    else return ()   where     go = lift (getBlock bh) >>= \case         Just bd -> do