Update for cardano-api#945

Author: carbolymer

cardano-testnet/src/Parsers/Cardano.hs

@@ -6,6 +6,7 @@ module Parsers.Cardano
   ) where
 
 import           Cardano.Api (AnyShelleyBasedEra (AnyShelleyBasedEra), EraInEon (..), prettyShow)
+import           Cardano.Api.Era (ShelleyBasedEra (..))
 
 import           Cardano.CLI.Environment
 import           Cardano.CLI.EraBased.Common.Option hiding (pNetworkId)
@@ -83,7 +84,7 @@ pCardanoTestnetCliOptions envCli = CardanoTestnetOptions
   where
     pAnyShelleyBasedEra' :: Parser AnyShelleyBasedEra
     pAnyShelleyBasedEra' =
-      pAnyShelleyBasedEra envCli <&> (\(EraInEon x) -> AnyShelleyBasedEra x)
+      pure $ AnyShelleyBasedEra ShelleyBasedEraConway -- TODO remove this hardcode
 
 pTestnetNodeOptions :: Parser [NodeOption]
 pTestnetNodeOptions =

cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/Rpc/Transaction.hs

@@ -82,7 +82,7 @@ hprop_rpc_transaction = integrationRetryWorkspace 2 "rpc-tx" $ \tempAbsBasePath'
       Rpc.nonStreaming conn (Rpc.rpc @(Rpc.Protobuf UtxoRpc.QueryService "readParams")) req
 
     utxos' <- do
-      let req = def & #addresses . #items .~ [T.encodeUtf8 addrTxt0]
+      let req = def & #cardanoAddresses . #items .~ [T.encodeUtf8 addrTxt0]
       Rpc.nonStreaming conn (Rpc.rpc @(Rpc.Protobuf UtxoRpc.QueryService "readUtxos")) req
     pure (pparams', utxos')
 
@@ -128,7 +128,7 @@ hprop_rpc_transaction = integrationRetryWorkspace 2 "rpc-tx" $ \tempAbsBasePath'
 
     utxos <-
       Rpc.nonStreaming conn (Rpc.rpc @(Rpc.Protobuf UtxoRpc.QueryService "readUtxos")) $
-        def & #addresses . #items .~ [T.encodeUtf8 addrTxt1]
+        def & #cardanoAddresses . #items .~ [T.encodeUtf8 addrTxt1]
     pure (utxos, submitResponse)
 
   submittedTxIds <- forM (submitResponse ^. #results) $ \res -> do