diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -4,6 +4,10 @@
 The format is based on [Keep a Changelog](http://keepachangelog.com/en/1.0.0/)
 and this project adheres to [Semantic Versioning](http://semver.org/spec/v2.0.0.html).
 
+## 0.8.4
+### Added
+- Add reward computation to block functions.
+
 ## 0.8.3
 ### Added
 - Add reward halving interval parameter to network constants.
diff --git a/haskoin-core.cabal b/haskoin-core.cabal
--- a/haskoin-core.cabal
+++ b/haskoin-core.cabal
@@ -2,10 +2,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 47347401d0d4e92d643d282dd4bf993ced972b2b0300de57d02efc74c705a647
+-- hash: d2a9fa5a1034de67fddae041cd6e5f2473a5b97aa7951715ea23ef2c0154e909
 
 name:           haskoin-core
-version:        0.8.3
+version:        0.8.4
 synopsis:       Bitcoin & Bitcoin Cash library for Haskell
 description:    Haskoin Core is a complete Bitcoin and Bitcoin Cash library of functions and data types for Haskell developers.
 category:       Bitcoin, Finance, Network
diff --git a/src/Network/Haskoin/Block/Headers.hs b/src/Network/Haskoin/Block/Headers.hs
--- a/src/Network/Haskoin/Block/Headers.hs
+++ b/src/Network/Haskoin/Block/Headers.hs
@@ -58,6 +58,7 @@
     , diffInterval
     , blockLocatorNodes
     , mineBlock
+    , computeSubsidy
     , ) where
 
 import           Control.Applicative                ((<|>))
@@ -728,3 +729,12 @@
 -- | Generate the entire Genesis block for 'Network'.
 genesisBlock :: Network -> Block
 genesisBlock net = Block (getGenesisHeader net) [genesisTx]
+
+-- | Compute block subsidy at particular height.
+computeSubsidy :: Network -> BlockHeight -> Word64
+computeSubsidy net height =
+    let halvings = height `div` getHalvingInterval net
+        ini = 50 * 100 * 1000 * 1000
+     in if halvings >= 64
+            then 0
+            else ini `shiftR` fromIntegral halvings
diff --git a/test/Network/Haskoin/BlockSpec.hs b/test/Network/Haskoin/BlockSpec.hs
--- a/test/Network/Haskoin/BlockSpec.hs
+++ b/test/Network/Haskoin/BlockSpec.hs
@@ -95,6 +95,9 @@
             property $ forAll arbitraryHeaders cerealID
         it "encodes and decodes merkle block" $
             property $ forAll arbitraryMerkleBlock cerealID
+    describe "helper functions" $ do
+        it "computes bitcoin block subsidy correctly" (testSubsidy btc)
+        it "computes regtest block subsidy correctly" (testSubsidy btcRegTest)
 
 -- 0 → → 2015 → → → → → → → 4031
 --       ↓
@@ -338,3 +341,15 @@
 
 cerealID :: (Serialize a, Eq a) => a -> Bool
 cerealID x = S.decode (S.encode x) == Right x
+
+testSubsidy :: Network -> Assertion
+testSubsidy net = go (2 * 50 * 100 * 1000 * 1000) 0
+  where
+    go previous_subsidy halvings = do
+        let height = halvings * getHalvingInterval net
+            subsidy = computeSubsidy net height
+        if halvings >= 64
+            then subsidy `shouldBe` 0
+            else do
+                subsidy `shouldBe` (previous_subsidy `div` 2)
+                go subsidy (halvings + 1)