Skip to content
Permalink
Browse files

Add comment about use of `tail`

  • Loading branch information...
Anviking committed Jun 12, 2019
1 parent 1ac2eca commit 697d472f38792f5ce2ebad9536606fd2132f1090
Showing with 4 additions and 3 deletions.
  1. +4 −3 lib/jormungandr/src/Cardano/Wallet/Jormungandr/Network.hs
@@ -108,9 +108,10 @@ mkNetworkLayer j (block0, block0Hash) = NetworkLayer
, nextBlocks = \tipHeader ->
if tipHeader == header block0
then getBlocksAfter block0Hash
else tail <$> getBlocksAfter (prevBlockHash tipHeader)


else
-- Get the descendants of the tip's /parent/.
-- The first descendant is therefore the current tip itself.
tail <$> getBlocksAfter (prevBlockHash tipHeader)

, postTx = error "postTx to be implemented"
}

0 comments on commit 697d472

Please sign in to comment.
You can’t perform that action at this time.