-- returns a copy of the block with the hash set
setBlockHash :: Block -> Block
setBlockHash block = block {blockHash = calculateBlockHash block}
setBlockHash :: Block -> Block
setBlockHash block = block {blockHash = calculateBlockHash block}
setBlockHash block = block {blockHash = calculateBlockHash block}