From 05e79a5bec4305c0c03658fddec0e829fd8aa901 Mon Sep 17 00:00:00 2001
From: Thomas Winant <thomas@well-typed.com>
Date: Fri, 13 Nov 2020 14:27:15 +0100
Subject: [PATCH] Cardano: use the right genesis configs for the shape

Unrelated to this PR, but spotted during review. This was forgotten in #2679.
---
 .../src/Ouroboros/Consensus/Cardano/Node.hs                   | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ouroboros-consensus-cardano/src/Ouroboros/Consensus/Cardano/Node.hs b/ouroboros-consensus-cardano/src/Ouroboros/Consensus/Cardano/Node.hs
index ef8ae29fb71..64b7db88081 100644
--- a/ouroboros-consensus-cardano/src/Ouroboros/Consensus/Cardano/Node.hs
+++ b/ouroboros-consensus-cardano/src/Ouroboros/Consensus/Cardano/Node.hs
@@ -516,8 +516,8 @@ protocolInfoCardano protocolParamsByron@ProtocolParamsByron {
     shape = History.Shape $ Exactly $
            K (Byron.byronEraParams     genesisByron)
         :* K (Shelley.shelleyEraParams genesisShelley)
-        :* K (Shelley.shelleyEraParams genesisShelley)
-        :* K (Shelley.shelleyEraParams genesisShelley)
+        :* K (Shelley.shelleyEraParams genesisAllegra)
+        :* K (Shelley.shelleyEraParams genesisMary)
         :* Nil
 
     cfg :: TopLevelConfig (CardanoBlock c)