Remove some redundant patterns and constraints

CardanoSolutions · Nov 1, 2023 · d49d938 · d49d938
1 parent 085728e
commit d49d938
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 6 deletions.
diff --git a/cardano-node/src/Cardano/Node/LedgerEvent.hs b/cardano-node/src/Cardano/Node/LedgerEvent.hs
@@ -629,14 +629,10 @@ toConwayEventShelley evt =
       liftNewEpoch  $ LedgerRestrainedRewards epoch rewards credentials
     ShelleyLedgerEventTICK (TickNewEpochEvent (Conway.DeltaRewardEvent (RupdEvent epoch rewards))) ->
       liftRewardUpdate $ LedgerIncrementalRewards epoch rewards
-    ShelleyLedgerEventTICK (TickNewEpochEvent (Conway.DeltaRewardEvent _)) ->
-      Nothing -- Or else getting "Pattern not exhaustif" warning, but can't seem to find the missing constructor.
     ShelleyLedgerEventTICK (TickNewEpochEvent (Conway.EpochEvent (Conway.PoolReapEvent (RetiredPools refunded unclaimed epoch)))) ->
       liftNewEpoch $ LedgerPoolReaping epoch refunded unclaimed
     ShelleyLedgerEventTICK (TickNewEpochEvent (Conway.EpochEvent (Conway.SnapEvent (Shelley.StakeDistEvent stakeDist)))) ->
       liftNewEpoch $ LedgerStakeDistEvent stakeDist
-    ShelleyLedgerEventTICK (TickNewEpochEvent (Conway.EpochEvent _)) ->
-      Nothing -- Or else getting "Pattern not exhaustif" warning, but can't seem to find the missing constructor.
     ShelleyLedgerEventTICK (TickNewEpochEvent (Conway.TotalAdaPotsEvent adaPots)) ->
       liftNewEpoch
         $ LedgerTotalAdaPots

diff --git a/cardano-node/src/Cardano/Node/Tracing/Tracers/NodeToNode.hs b/cardano-node/src/Cardano/Node/Tracing/Tracers/NodeToNode.hs
@@ -21,7 +21,7 @@ import           Network.TypedProtocol.Codec (AnyMessageAndAgency (..))
 import           Cardano.Node.Queries (ConvertTxId)
 import           Cardano.Node.Tracing.Render (renderHeaderHash, renderTxIdForDetails)
 
-import           Ouroboros.Consensus.Block (ConvertRawHash, GetHeader, StandardHash, getHeader)
+import           Ouroboros.Consensus.Block (ConvertRawHash, StandardHash, getHeader)
 import           Ouroboros.Consensus.Ledger.SupportsMempool (GenTx, HasTxId, HasTxs,
                    LedgerSupportsMempool, extractTxs, txId)
 import           Ouroboros.Consensus.Node.Run (SerialiseNodeToNodeConstraints, estimateBlockSize)
@@ -36,7 +36,6 @@ import           Ouroboros.Network.SizeInBytes (SizeInBytes (..))
 --------------------------------------------------------------------------------
 
 instance ( ConvertTxId blk
-         , GetHeader blk
          , HasTxId (GenTx blk)
          , SerialiseNodeToNodeConstraints blk
          , HasTxs blk