totalHashUntilBlock :: Block -> Double
totalHashUntilBlock b = blockDifficulty b * (2 ** 32)
totalHashUntilBlock :: Block -> Double
totalHashUntilBlock b = blockDifficulty b * (2 ** 32)
totalHashUntilBlock b = blockDifficulty b * (2 ** 32)