Skip to content

Commit 0ec9ea7

Browse files
committed
Update for cardano-api#945
1 parent 1ea0332 commit 0ec9ea7

File tree

7 files changed

+8
-14
lines changed

7 files changed

+8
-14
lines changed

bench/locli/locli.cabal

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -212,7 +212,7 @@ test-suite test-locli
212212
build-depends: cardano-prelude
213213
, containers
214214
, hedgehog
215-
, hedgehog-extras ^>= 0.8
215+
, hedgehog-extras ^>= 0.10
216216
, locli
217217
, text
218218

cardano-node-chairman/cardano-node-chairman.cabal

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -75,7 +75,7 @@ test-suite chairman-tests
7575
, data-default-class
7676
, filepath
7777
, hedgehog
78-
, hedgehog-extras ^>= 0.8
78+
, hedgehog-extras ^>= 0.10
7979
, network
8080
, process
8181
, random

cardano-node/cardano-node.cabal

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -268,7 +268,7 @@ test-suite cardano-node-test
268268
, filepath
269269
, hedgehog
270270
, hedgehog-corpus
271-
, hedgehog-extras ^>= 0.8
271+
, hedgehog-extras ^>= 0.10
272272
, iproute
273273
, mtl
274274
, ouroboros-consensus

cardano-testnet/cardano-testnet.cabal

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -71,7 +71,7 @@ library
7171
, extra
7272
, filepath
7373
, hedgehog
74-
, hedgehog-extras ^>= 0.8
74+
, hedgehog-extras ^>= 0.10
7575
, http-conduit
7676
, lens-aeson
7777
, microlens

cardano-testnet/src/Parsers/Cardano.hs

Lines changed: 2 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -5,10 +5,9 @@ module Parsers.Cardano
55
, cmdCreateEnv
66
) where
77

8-
import Cardano.Api (AnyShelleyBasedEra (..), EraInEon (..), prettyShow)
8+
import Cardano.Api.Era (AnyShelleyBasedEra (..))
9+
import Cardano.Api.Pretty
910

10-
import Cardano.CLI.Environment
11-
import Cardano.CLI.EraBased.Common.Option (bounded, command')
1211
import Cardano.CLI.EraBased.Common.Option hiding (pNetworkId)
1312

1413
import Prelude
@@ -82,10 +81,6 @@ pCardanoTestnetCliOptions = CardanoTestnetOptions
8281
<> OA.help "[EXPERIMENTAL] Enable gRPC endpoint on all of testnet nodes. The listening socket file will be the same directory as node's N2C socket."
8382
<> OA.showDefault
8483
)
85-
where
86-
pAnyShelleyBasedEra' :: Parser AnyShelleyBasedEra
87-
pAnyShelleyBasedEra' =
88-
pAnyShelleyBasedEra envCli <&> (\(EraInEon x) -> AnyShelleyBasedEra x)
8984

9085
pTestnetNodeOptions :: Parser [NodeOption]
9186
pTestnetNodeOptions =

cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/Cli/Query.hs

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -62,7 +62,6 @@ import Testnet.Property.Util (integrationWorkspace)
6262
import Testnet.Start.Types (GenesisOptions (..), NumPools (..), cardanoNumPools)
6363
import Testnet.TestQueryCmds (TestQueryCmds (..), forallQueryCommands)
6464
import Testnet.Types
65-
import RIO (runRIO)
6665

6766
import Hedgehog
6867
import qualified Hedgehog as H

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

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -82,7 +82,7 @@ hprop_rpc_transaction = integrationRetryWorkspace 2 "rpc-tx" $ \tempAbsBasePath'
8282
Rpc.nonStreaming conn (Rpc.rpc @(Rpc.Protobuf UtxoRpc.QueryService "readParams")) req
8383

8484
utxos' <- do
85-
let req = def & #addresses . #items .~ [T.encodeUtf8 addrTxt0]
85+
let req = def & #cardanoAddresses . #items .~ [T.encodeUtf8 addrTxt0]
8686
Rpc.nonStreaming conn (Rpc.rpc @(Rpc.Protobuf UtxoRpc.QueryService "readUtxos")) req
8787
pure (pparams', utxos')
8888

@@ -128,7 +128,7 @@ hprop_rpc_transaction = integrationRetryWorkspace 2 "rpc-tx" $ \tempAbsBasePath'
128128

129129
utxos <-
130130
Rpc.nonStreaming conn (Rpc.rpc @(Rpc.Protobuf UtxoRpc.QueryService "readUtxos")) $
131-
def & #addresses . #items .~ [T.encodeUtf8 addrTxt1]
131+
def & #cardanoAddresses . #items .~ [T.encodeUtf8 addrTxt1]
132132
pure (utxos, submitResponse)
133133

134134
submittedTxIds <- forM (submitResponse ^. #results) $ \res -> do

0 commit comments

Comments
 (0)