mirror of
https://github.com/haskoin/haskoin-core.git
synced 2024-09-11 10:05:34 +03:00
Fix binary search
This commit is contained in:
parent
1196c5a3ef
commit
04661a9a86
@ -4,6 +4,9 @@ All notable changes to this project will be documented in this file.
|
||||
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.20.1
|
||||
### Fixed
|
||||
- Correct case where binary search returned the wrong element.
|
||||
|
||||
## 0.20.0
|
||||
### Chaged
|
||||
|
@ -4,10 +4,10 @@ cabal-version: 1.12
|
||||
--
|
||||
-- see: https://github.com/sol/hpack
|
||||
--
|
||||
-- hash: f90b7b9353df059b5744c2454f8f514133d3e989a66c8137a87030db88a73a2a
|
||||
-- hash: 453f8e3571726d6b8f4955298154df7bc915f395fe414b2b3c859021583dfbfe
|
||||
|
||||
name: haskoin-core
|
||||
version: 0.20.0
|
||||
version: 0.20.1
|
||||
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
|
||||
|
@ -1,5 +1,5 @@
|
||||
name: haskoin-core
|
||||
version: 0.20.0
|
||||
version: 0.20.1
|
||||
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
|
||||
|
@ -633,8 +633,8 @@ binSearch top net f = runMaybeT $ do
|
||||
no_middle a b = nodeHeight b - nodeHeight a <= 1
|
||||
is_between a' b' = a' /= GT && b' /= LT
|
||||
choose_one a b
|
||||
| top = return b
|
||||
| otherwise = return a
|
||||
| top = return a
|
||||
| otherwise = return b
|
||||
|
||||
extremes :: BlockHeaders m => Network -> m (BlockNode, BlockNode)
|
||||
extremes net = do
|
||||
|
Loading…
Reference in New Issue
Block a user