From 61840ae2e349157427ea1c4ca59dd2ceb56a7189 Mon Sep 17 00:00:00 2001 From: Erik de Castro Lopo Date: Sat, 11 Mar 2023 14:35:22 +1100 Subject: [PATCH] Reinstate -Werror for cardano-node and fix errors --- cabal.project | 2 +- cardano-node/src/Cardano/Node/Queries.hs | 3 +++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/cabal.project b/cabal.project index b0207ac9890..b6f8fe03457 100644 --- a/cabal.project +++ b/cabal.project @@ -50,7 +50,7 @@ package cardano-git-rev ghc-options: -Werror package cardano-node --- ghc-options: -Werror + ghc-options: -Werror package cardano-node-chairman ghc-options: -Werror diff --git a/cardano-node/src/Cardano/Node/Queries.hs b/cardano-node/src/Cardano/Node/Queries.hs index c16daea129f..0cbc240fbfe 100644 --- a/cardano-node/src/Cardano/Node/Queries.hs +++ b/cardano-node/src/Cardano/Node/Queries.hs @@ -270,6 +270,7 @@ instance LedgerQueries (Cardano.CardanoBlock c) where Cardano.LedgerStateMary ledgerMary -> ledgerUtxoSize ledgerMary Cardano.LedgerStateAlonzo ledgerAlonzo -> ledgerUtxoSize ledgerAlonzo Cardano.LedgerStateBabbage ledgerBabbage -> ledgerUtxoSize ledgerBabbage + Cardano.LedgerStateConway ledgerConway -> ledgerUtxoSize ledgerConway ledgerDelegMapSize = \case Cardano.LedgerStateByron ledgerByron -> ledgerDelegMapSize ledgerByron Cardano.LedgerStateShelley ledgerShelley -> ledgerDelegMapSize ledgerShelley @@ -277,6 +278,8 @@ instance LedgerQueries (Cardano.CardanoBlock c) where Cardano.LedgerStateMary ledgerMary -> ledgerDelegMapSize ledgerMary Cardano.LedgerStateAlonzo ledgerAlonzo -> ledgerDelegMapSize ledgerAlonzo Cardano.LedgerStateBabbage ledgerBabbage -> ledgerDelegMapSize ledgerBabbage + Cardano.LedgerStateConway ledgerConway -> ledgerDelegMapSize ledgerConway + -- -- * Node kernel --