diff --git a/Network/Haskoin/Node/HeaderTree.hs b/Network/Haskoin/Node/HeaderTree.hs --- a/Network/Haskoin/Node/HeaderTree.hs +++ b/Network/Haskoin/Node/HeaderTree.hs @@ -30,6 +30,9 @@ , nodeHeader , nodePrev , nodeTimestamp +, nodeWork +, nodeHeight +, nodeChain , isBestChain , isChainReorg , isSideChain @@ -101,6 +104,15 @@ nodeTimestamp :: NodeBlock -> Timestamp nodeTimestamp = blockTimestamp . nodeHeader + +nodeWork :: NodeBlock -> Work +nodeWork = nodeBlockWork + +nodeHeight :: NodeBlock -> BlockHeight +nodeHeight = nodeBlockHeight + +nodeChain :: NodeBlock -> Word32 +nodeChain = nodeBlockChain -- | Number of blocks on average between difficulty cycles (2016 blocks). diffInterval :: Word32 diff --git a/haskoin-node.cabal b/haskoin-node.cabal --- a/haskoin-node.cabal +++ b/haskoin-node.cabal @@ -1,5 +1,5 @@ name: haskoin-node -version: 0.4.0 +version: 0.4.1 synopsis: Implementation of a Bitoin node. description: @@ -19,12 +19,12 @@ homepage: http://github.com/haskoin/haskoin bug-reports: http://github.com/haskoin/haskoin/issues -tested-with: GHC==7.10.3, GHC==7.10.2, GHC==7.10.1 +tested-with: GHC==8.0.2 stability: stable license: PublicDomain license-file: UNLICENSE author: Philippe Laprade, Jean-Pierre Rupp -maintainer: plaprade+hackage@gmail.com +maintainer: xenog@protonmail.com category: Bitcoin, Finance, Network build-type: Simple cabal-version: >= 1.9.2 @@ -48,7 +48,7 @@ RecordWildCards DeriveDataTypeable - build-depends: aeson >= 0.7 && < 0.12 + build-depends: aeson >= 0.7 && < 1.1 , async >= 2.0 && < 2.2 , base >= 4.8 && < 5 , bytestring >= 0.10 && < 0.11 @@ -57,10 +57,10 @@ , conduit >= 1.2 && < 1.3 , conduit-extra >= 1.1 && < 1.2 , containers >= 0.5 && < 0.6 - , data-default >= 0.5 && < 0.6 + , data-default >= 0.5 && < 0.8 , deepseq >= 1.4 && < 1.5 , either >= 4.3 && < 4.5 - , esqueleto >= 2.4 && < 2.5 + , esqueleto >= 2.4 && < 2.6 , exceptions >= 0.8 && < 0.9 , haskoin-core >= 0.3 && < 0.5 , largeword >= 1.2.4 && < 1.3 @@ -70,13 +70,13 @@ , monad-logger >= 0.3 && < 0.4 , mtl >= 2.2 && < 2.3 , network >= 2.4 && < 2.7 - , persistent >= 2.2 && < 2.3 - , persistent-template >= 2.1 && < 2.2 + , persistent >= 2.2 && < 2.7 + , persistent-template >= 2.1 && < 2.6 , resource-pool >= 0.2 && < 0.3 , random >= 1.0 && < 1.2 , stm >= 2.4 && < 2.5 , stm-chans >= 3.0 && < 3.1 - , stm-conduit >= 2.5 && < 2.9 + , stm-conduit >= 2.5 && < 3.1 , string-conversions >= 0.4 && < 0.5 , text >= 0.11 && < 1.3 , time >= 1.4 && < 1.7 @@ -95,12 +95,12 @@ build-depends: base >= 4.8 && < 5 , haskoin-core , haskoin-node - , HUnit >= 1.2 && < 1.4 - , QuickCheck >= 2.6 && < 2.9 + , HUnit >= 1.2 && < 1.6 + , QuickCheck >= 2.6 && < 2.10 , monad-logger >= 0.3 && < 0.4 , mtl >= 2.2 && < 2.3 - , persistent >= 2.2 && < 2.3 - , persistent-sqlite >= 2.2 && < 2.3 + , persistent >= 2.2 && < 2.7 + , persistent-sqlite >= 2.2 && < 2.7 , resourcet >= 1.1 && < 1.2 , test-framework >= 0.8 && < 0.9 , test-framework-quickcheck2 >= 0.3 && < 0.4