From baad1782e10f7de16679bdbfeb12ca89e8ad273b Mon Sep 17 00:00:00 2001 From: Rodney Lorrimar Date: Mon, 16 Nov 2020 16:33:31 +1000 Subject: [PATCH] Update Shelley.CompatibilitySpec --- .../test/unit/Cardano/Wallet/Shelley/CompatibilitySpec.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/shelley/test/unit/Cardano/Wallet/Shelley/CompatibilitySpec.hs b/lib/shelley/test/unit/Cardano/Wallet/Shelley/CompatibilitySpec.hs index ff987582437..1c8a6d5796d 100644 --- a/lib/shelley/test/unit/Cardano/Wallet/Shelley/CompatibilitySpec.hs +++ b/lib/shelley/test/unit/Cardano/Wallet/Shelley/CompatibilitySpec.hs @@ -144,7 +144,7 @@ spec = do describe "Shelley Addresses" $ do prop "(Mainnet) can be deserialised by shelley ledger spec" $ \k -> do let Address addr = paymentAddress @'Mainnet @ShelleyKey k - case SL.deserialiseAddr @(SL.Shelley StandardCrypto) addr of + case SL.deserialiseAddr @(SL.ShelleyEra StandardCrypto) addr of Just _ -> property True Nothing -> property False @@ -177,7 +177,7 @@ spec = do describe "decentralizationLevelFromPParams" $ do - let mkDecentralizationParam :: SL.UnitInterval -> SL.PParams (SL.Shelley c) + let mkDecentralizationParam :: SL.UnitInterval -> SL.PParams (SL.ShelleyEra StandardCrypto) mkDecentralizationParam i = SL.emptyPParams { SL._d = i } let testCases :: [(Ratio Word64, Text)]