Skip to content
Permalink
Browse files

Update w.r.t. upstream changes

  • Loading branch information...
nc6 committed Jul 11, 2019
1 parent ce5a642 commit 1708a1f01b9bb6a08cb97097d63af2ad01a51073
Showing with 2 additions and 6 deletions.
  1. +2 −6 ouroboros-consensus/src/Ouroboros/Consensus/Ledger/Byron.hs
@@ -472,16 +472,12 @@ instance ( ByronGiven
applyLedgerHeader (ByronEBBLedgerConfig cfg) (ByronHeaderOrEBB hdr)
(ByronEBBLedgerState bs@(ByronLedgerState state snapshots)) = case hdr of
Left ebb ->
mapExcept (fmap (\i -> ByronEBBLedgerState $ ByronLedgerState i snapshots)) $ do
mapExcept (fmap (\i -> ByronEBBLedgerState $ ByronLedgerState i snapshots)) $
return $ state
{ CC.Block.cvsPreviousHash = Right $ CC.Block.boundaryHashAnnotated ebb}
Right h -> ByronEBBLedgerState <$> applyLedgerHeader cfg (ByronHeader h) bs

ledgerTipPoint (ByronEBBLedgerState state) =
Point { pointSlot = pointSlot bp
, pointHash = castHash $ pointHash bp
}
where bp = ledgerTipPoint state
ledgerTipPoint (ByronEBBLedgerState state) = castPoint $ ledgerTipPoint state

-- | Construct Byron block from unannotated 'CC.Block.Block'
--

0 comments on commit 1708a1f

Please sign in to comment.
You can’t perform that action at this time.