cardano-api-test: adapt to deprecations

IntersectMBO · Jan 22, 2025 · 33dc07b · 33dc07b
1 parent 6a38901
commit 33dc07b
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/cardano-api/test/cardano-api-test/Test/Cardano/Api/Address.hs b/cardano-api/test/cardano-api-test/Test/Cardano/Api/Address.hs
@@ -24,11 +24,11 @@ import           Test.Tasty.Hedgehog (testProperty)
 
 prop_roundtrip_shelley_address :: Property
 prop_roundtrip_shelley_address =
-  roundtrip_serialise_address AsShelleyAddress genAddressShelley
+  roundtrip_serialise_address (AsAddress AsShelleyAddr) genAddressShelley
 
 prop_roundtrip_byron_address :: Property
 prop_roundtrip_byron_address =
-  roundtrip_serialise_address AsByronAddress genAddressByron
+  roundtrip_serialise_address (AsAddress AsByronAddr) genAddressByron
 
 -- -----------------------------------------------------------------------------
 

diff --git a/cardano-api/test/cardano-api-test/Test/Cardano/Api/Bech32.hs b/cardano-api/test/cardano-api-test/Test/Cardano/Api/Bech32.hs
@@ -3,7 +3,7 @@ module Test.Cardano.Api.Bech32
   )
 where
 
-import           Cardano.Api (AsType (AsShelleyAddress, AsStakeAddress))
+import           Cardano.Api (AsType (AsAddress, AsShelleyAddr, AsStakeAddress))
 
 import           Test.Gen.Cardano.Api.Typed (genAddressShelley, genStakeAddress)
 
@@ -13,7 +13,7 @@ import           Test.Tasty (TestTree, testGroup)
 import           Test.Tasty.Hedgehog (testProperty)
 
 prop_roundtrip_Address_Shelley :: Property
-prop_roundtrip_Address_Shelley = roundtrip_Bech32 AsShelleyAddress genAddressShelley
+prop_roundtrip_Address_Shelley = roundtrip_Bech32 (AsAddress AsShelleyAddr) genAddressShelley
 
 prop_roundtrip_StakeAddress :: Property
 prop_roundtrip_StakeAddress = roundtrip_Bech32 AsStakeAddress genStakeAddress

diff --git a/cardano-api/test/cardano-api-test/Test/Cardano/Api/RawBytes.hs b/cardano-api/test/cardano-api-test/Test/Cardano/Api/RawBytes.hs
@@ -23,11 +23,11 @@ import           Test.Tasty.Hedgehog (testProperty)
 
 prop_roundtrip_shelley_address_raw :: Property
 prop_roundtrip_shelley_address_raw =
-  roundtrip_raw_bytes AsShelleyAddress genAddressShelley
+  roundtrip_raw_bytes (AsAddress AsShelleyAddr) genAddressShelley
 
 prop_roundtrip_byron_address_raw :: Property
 prop_roundtrip_byron_address_raw =
-  roundtrip_raw_bytes AsByronAddress genAddressByron
+  roundtrip_raw_bytes (AsAddress AsByronAddr) genAddressByron
 
 prop_roundtrip_stake_address_raw :: Property
 prop_roundtrip_stake_address_raw =