btcHash :: Block -> Rational
btcHash b = ( blockReward b + ((toRational . blockFee) b / 100000000)) / (toRational $ totalHashUntilBlock b)
btcHash :: Block -> Rational
btcHash b = ( blockReward b + ((toRational . blockFee) b / 100000000)) / (toRational $ totalHashUntilBlock b)
btcHash b = ( blockReward b + ((toRational . blockFee) b / 100000000)) / (toRational $ totalHashUntilBlock b)