Update w.r.t. upstream changes

IntersectMBO · Jul 11, 2019 · 1708a1f · 1708a1f
1 parent ce5a642
commit 1708a1f
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/ouroboros-consensus/src/Ouroboros/Consensus/Ledger/Byron.hs b/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'
 --