From 77b65b19535cd2ac28cfe76131c3b03c7f0e077d Mon Sep 17 00:00:00 2001 From: Andrea Bedini Date: Fri, 6 May 2022 12:56:56 +0800 Subject: [PATCH] Rename fix to workaround --- plutus-streaming/app/Main2.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/plutus-streaming/app/Main2.hs b/plutus-streaming/app/Main2.hs index f1f9005248..8b5fbff522 100644 --- a/plutus-streaming/app/Main2.hs +++ b/plutus-streaming/app/Main2.hs @@ -73,18 +73,18 @@ transactions :: Cardano.Api.BlockInMode Cardano.Api.CardanoMode -> [Ledger.CardanoTx] transactions (Cardano.Api.BlockInMode (Cardano.Api.Block _ txs) eim) = - map (\tx -> Ledger.CardanoApiTx (fix (Ledger.SomeTx tx) eim)) txs + map (\tx -> Ledger.CardanoApiTx (workaround (Ledger.SomeTx tx) eim)) txs -- https://github.com/input-output-hk/cardano-node/pull/3665 -fix :: +workaround :: (Cardano.Api.IsCardanoEra era => Cardano.Api.EraInMode era Cardano.Api.CardanoMode -> a) -> Cardano.Api.EraInMode era Cardano.Api.CardanoMode -> a -fix k Cardano.Api.ByronEraInCardanoMode = k Cardano.Api.ByronEraInCardanoMode -fix k Cardano.Api.ShelleyEraInCardanoMode = k Cardano.Api.ShelleyEraInCardanoMode -fix k Cardano.Api.AllegraEraInCardanoMode = k Cardano.Api.AllegraEraInCardanoMode -fix k Cardano.Api.MaryEraInCardanoMode = k Cardano.Api.MaryEraInCardanoMode -fix k Cardano.Api.AlonzoEraInCardanoMode = k Cardano.Api.AlonzoEraInCardanoMode +workaround k Cardano.Api.ByronEraInCardanoMode = k Cardano.Api.ByronEraInCardanoMode +workaround k Cardano.Api.ShelleyEraInCardanoMode = k Cardano.Api.ShelleyEraInCardanoMode +workaround k Cardano.Api.AllegraEraInCardanoMode = k Cardano.Api.AllegraEraInCardanoMode +workaround k Cardano.Api.MaryEraInCardanoMode = k Cardano.Api.MaryEraInCardanoMode +workaround k Cardano.Api.AlonzoEraInCardanoMode = k Cardano.Api.AlonzoEraInCardanoMode txInsAndOuts :: Ledger.CardanoTx ->