fixup allow an EBB's successor to share the slot

IntersectMBO · Dec 14, 2019 · 9fe3499 · 9fe3499
1 parent 5574ed7
commit 9fe3499
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/ouroboros-consensus/test-storage/Test/Ouroboros/Storage/ChainDB/ImmDB.hs b/ouroboros-consensus/test-storage/Test/Ouroboros/Storage/ChainDB/ImmDB.hs
@@ -20,7 +20,7 @@ import qualified Cardano.Chain.Update as Update
 import           Ouroboros.Network.Block (BlockNo (..), ChainHash (..),
                      SlotNo (..), blockPoint)
 
-import           Ouroboros.Consensus.Block (BlockProtocol)
+import           Ouroboros.Consensus.Block (BlockProtocol, getHeader)
 import           Ouroboros.Consensus.Ledger.Byron (ByronBlock)
 import           Ouroboros.Consensus.Ledger.Byron.Forge (forgeEBB)
 import           Ouroboros.Consensus.Node.ProtocolInfo
@@ -76,7 +76,7 @@ withImmDB k = do
       , immEpochInfo   = epochInfo
       , immHashInfo    = nodeHashInfo (Proxy @ByronBlock)
       , immValidation  = ValidateMostRecentEpoch
-      , immIsEBB       = nodeIsEBB
+      , immIsEBB       = nodeIsEBB . getHeader
       , immTracer      = nullTracer
       }
 

diff --git a/ouroboros-consensus/tools/db-analyse/Main.hs b/ouroboros-consensus/tools/db-analyse/Main.hs
@@ -22,6 +22,7 @@ import qualified Cardano.Crypto as Crypto
 import           Ouroboros.Network.Block (HasHeader (..), SlotNo (..),
                      genesisPoint)
 
+import           Ouroboros.Consensus.Block (getHeader)
 import           Ouroboros.Consensus.Ledger.Byron (ByronBlock, ByronHash)
 import qualified Ouroboros.Consensus.Ledger.Byron as Byron
 import           Ouroboros.Consensus.Node.Run.Abstract