Merge #3158

3158: Enabled `getBlockHeader` for Alonzo Era r=newhoggy a=bwbush This simple fix appears to resolve #3139. I've tested it as follows: 1. `scan-blocks` executable running on `testnet` 2. The `watch-coin` and `watch-address` modes of my chain-walking CLI https://github.com/functionally/mantis. 3. My token-blending application, which also walks the chain to watch coins and addresses: https://github.com/functionally/pigy-genetics I haven't run any other test suites. Co-authored-by: Brian W Bush <[email protected]>
IntersectMBO · Sep 3, 2021 · 53fd9ec · 53fd9ec
2 parents c48cf5a + dd8d022
commit 53fd9ec
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cardano-api/src/Cardano/Api/Block.hs b/cardano-api/src/Cardano/Api/Block.hs
@@ -249,7 +249,7 @@ getBlockHeader (ShelleyBlock shelleyEra block) = case shelleyEra of
   ShelleyBasedEraShelley -> go
   ShelleyBasedEraAllegra -> go
   ShelleyBasedEraMary -> go
-  ShelleyBasedEraAlonzo -> error "getBlockHeader: Alonzo era not implemented yet"
+  ShelleyBasedEraAlonzo -> go
   where
     go :: Consensus.ShelleyBasedEra (ShelleyLedgerEra era) => BlockHeader
     go = BlockHeader headerFieldSlot (HeaderHash hashSBS) headerFieldBlockNo