diff --git a/cabal.project b/cabal.project index 573b712c835..c796a173d35 100644 --- a/cabal.project +++ b/cabal.project @@ -34,8 +34,8 @@ packages: extra-packages: Cabal --- program-options --- ghc-options: -Werror +program-options + ghc-options: -Werror test-show-details: direct diff --git a/cardano-node/cardano-node.cabal b/cardano-node/cardano-node.cabal index 1d0a4f12cd5..3bd6c7f7874 100644 --- a/cardano-node/cardano-node.cabal +++ b/cardano-node/cardano-node.cabal @@ -40,7 +40,7 @@ common project-config -Wunused-packages common maybe-Win32 if os(windows) - build-depends: Win32 + build-depends: Win32 common maybe-unix if !os(windows) diff --git a/cardano-node/src/Cardano/Tracing/OrphanInstances/Consensus.hs b/cardano-node/src/Cardano/Tracing/OrphanInstances/Consensus.hs index bcf20ce757d..c7491304090 100644 --- a/cardano-node/src/Cardano/Tracing/OrphanInstances/Consensus.hs +++ b/cardano-node/src/Cardano/Tracing/OrphanInstances/Consensus.hs @@ -239,7 +239,7 @@ instance HasSeverityAnnotation (ChainDB.TraceEvent blk) where VolDb.Truncate{} -> Error VolDb.InvalidFileNames{} -> Warning VolDb.DBClosed{} -> Info - getSeverityAnnotation ChainDB.TraceLastShutdownUnclean = Info + getSeverityAnnotation ChainDB.TraceLastShutdownUnclean = Warning instance HasSeverityAnnotation (LedgerEvent blk) where getSeverityAnnotation (LedgerUpdate _) = Notice diff --git a/cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/SubmitApi/Transaction.hs b/cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/SubmitApi/Transaction.hs index 93b09693449..5e2f8130641 100644 --- a/cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/SubmitApi/Transaction.hs +++ b/cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/SubmitApi/Transaction.hs @@ -49,6 +49,8 @@ import qualified Hedgehog.Extras.Test.File as H import qualified Hedgehog.Extras.Test.Golden as H import qualified Hedgehog.Extras.Test.TestWatchdog as H +-- | Execute me with: +-- @DISABLE_RETRIES=1 cabal test cardano-testnet-test --test-options '-p "/transaction/"'@ hprop_transaction :: Property hprop_transaction = integrationRetryWorkspace 0 "submit-api-transaction" $ \tempAbsBasePath' -> H.runWithDefaultWatchdog_ $ do H.note_ SYS.os @@ -156,7 +158,7 @@ hprop_transaction = integrationRetryWorkspace 0 "submit-api-transaction" $ \temp UTxO utxo2 <- H.noteShowM $ decodeEraUTxO sbe utxo2Json txouts2 <- H.noteShow $ L.unCoin . txOutValueLovelace . txOutValue . snd <$> Map.toList utxo2 - H.assert $ 5_000_001 `List.elem` txouts2 + H.assert $ 15_000_003_000_000 `List.elem` txouts2 response <- H.byDurationM 1 5 "Expected UTxO found" $ do txBodySigned <- H.leftFailM $ H.readJsonFile @Aeson.Value txbodySignedFp