Skip to content

Commit 7b0971c

Browse files
carbolymercarbolymer
committed
upd cardano-api
1 parent d21bc45 commit 7b0971c

File tree

47 files changed

+106
-96
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

47 files changed

+106
-96
lines changed

‎bench/locli/src/Cardano/Util.hs

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -68,7 +68,6 @@ deriving newtype instance ToJSON a => (ToJSON (I a))
6868
deriving instance FromJSON a => (FromJSON (Interval a))
6969
deriving instance Functor Interval
7070
deriving instance ToJSON a => (ToJSON (Interval a))
71-
deriving instance NFData a => (NFData (Interval a))
7271

7372
unionIntv, intersectIntv :: Ord a => [Interval a] -> Interval a
7473
unionIntv xs = Interval (low lo) (high hi)

‎bench/plutus-scripts-bench/src/Cardano/Benchmarking/PlutusScripts/CustomCall.hs

Lines changed: 11 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -12,22 +12,24 @@
1212

1313
module Cardano.Benchmarking.PlutusScripts.CustomCall (script) where
1414

15-
import Language.Haskell.TH
16-
import Language.Haskell.TH.Syntax
15+
import Cardano.Api (PlutusScript (..), PlutusScriptV2, PlutusScriptVersion (..),
16+
Script (..), toScriptInAnyLang)
17+
18+
import Cardano.Benchmarking.PlutusScripts.CustomCallTypes
19+
import Cardano.Benchmarking.ScriptAPI
20+
import qualified PlutusLedgerApi.V2 as PlutusV2
21+
1722
import Prelude as Haskell (String, (.), (<$>))
1823

19-
import Cardano.Api (PlutusScriptV2, toScriptInAnyLang, Script(..))
20-
import Cardano.Api.Shelley (PlutusScript (..), PlutusScriptVersion (..))
2124
import qualified Data.ByteString.Short as SBS
22-
import qualified PlutusLedgerApi.V2 as PlutusV2
25+
26+
import Language.Haskell.TH
27+
import Language.Haskell.TH.Syntax
2328
import qualified PlutusTx
2429
import PlutusTx.Foldable (sum)
25-
import PlutusTx.List (length, all)
30+
import PlutusTx.List (all, length)
2631
import PlutusTx.Prelude as Plutus hiding (Semigroup (..), (.), (<$>))
2732

28-
import Cardano.Benchmarking.ScriptAPI
29-
import Cardano.Benchmarking.PlutusScripts.CustomCallTypes
30-
3133
script :: PlutusBenchScript
3234
script = mkPlutusBenchScript scriptName (toScriptInAnyLang (PlutusScript PlutusScriptV2 scriptSerialized))
3335

‎bench/plutus-scripts-bench/src/Cardano/Benchmarking/PlutusScripts/EcdsaSecp256k1Loop.hs

Lines changed: 9 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -9,18 +9,21 @@
99

1010
module Cardano.Benchmarking.PlutusScripts.EcdsaSecp256k1Loop (script) where
1111

12-
import Language.Haskell.TH
13-
import Language.Haskell.TH.Syntax
12+
import Cardano.Api (PlutusScript (..), PlutusScriptV2, PlutusScriptVersion (..),
13+
Script (..), toScriptInAnyLang)
1414

15-
import Cardano.Api (PlutusScript, PlutusScriptV2, Script(..), toScriptInAnyLang)
16-
import Cardano.Api.Shelley (PlutusScript (..), PlutusScriptVersion (..))
1715
import Cardano.Benchmarking.ScriptAPI
18-
import qualified Data.ByteString.Short as SBS
1916
import qualified PlutusLedgerApi.V2 as PlutusV2
17+
18+
import Prelude as Haskell (String, (.), (<$>))
19+
20+
import qualified Data.ByteString.Short as SBS
21+
22+
import Language.Haskell.TH
23+
import Language.Haskell.TH.Syntax
2024
import qualified PlutusTx
2125
import qualified PlutusTx.Builtins as BI
2226
import PlutusTx.Prelude as P hiding (Semigroup (..), (.), (<$>))
23-
import Prelude as Haskell (String, (.), (<$>))
2427

2528

2629
scriptName :: Haskell.String

‎bench/plutus-scripts-bench/src/Cardano/Benchmarking/PlutusScripts/HashOntoG2AndAdd.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,7 @@
1111

1212
module Cardano.Benchmarking.PlutusScripts.HashOntoG2AndAdd (script) where
1313

14-
import Cardano.Api.Shelley (PlutusScript (..), PlutusScriptV3, PlutusScriptVersion (..),
14+
import Cardano.Api (PlutusScript (..), PlutusScriptV3, PlutusScriptVersion (..),
1515
Script (..), toScriptInAnyLang)
1616

1717
import Cardano.Benchmarking.ScriptAPI

‎bench/plutus-scripts-bench/src/Cardano/Benchmarking/PlutusScripts/Loop2024.hs

Lines changed: 8 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -9,15 +9,18 @@
99

1010
module Cardano.Benchmarking.PlutusScripts.Loop2024 (script) where
1111

12-
import Language.Haskell.TH
13-
import Language.Haskell.TH.Syntax
14-
import Prelude hiding (pred, ($), (&&), (<), (==))
12+
import Cardano.Api (PlutusScript (..), PlutusScriptV1, PlutusScriptVersion (..),
13+
Script (..), toScriptInAnyLang)
1514

16-
import Cardano.Api.Shelley (PlutusScript (..), PlutusScriptV1, Script(..), toScriptInAnyLang, PlutusScriptVersion(..))
1715
import Cardano.Benchmarking.ScriptAPI
16+
import qualified PlutusLedgerApi.V1 as PlutusV1
17+
18+
import Prelude hiding (pred, ($), (&&), (<), (==))
19+
1820
import qualified Data.ByteString.Short as SBS
1921

20-
import qualified PlutusLedgerApi.V1 as PlutusV1
22+
import Language.Haskell.TH
23+
import Language.Haskell.TH.Syntax
2124
import PlutusTx
2225
import PlutusTx.Builtins (unsafeDataAsI)
2326
import PlutusTx.Prelude hiding (Semigroup (..), unless, (.), (<$>))

‎bench/plutus-scripts-bench/src/Cardano/Benchmarking/PlutusScripts/LoopV3.hs

Lines changed: 8 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -6,16 +6,18 @@
66

77
module Cardano.Benchmarking.PlutusScripts.LoopV3 (script) where
88

9-
import Language.Haskell.TH
10-
import Language.Haskell.TH.Syntax
11-
import Prelude hiding (pred, ($), (&&), (<), (==))
12-
13-
import Cardano.Api.Shelley (PlutusScript (..), PlutusScriptV3, PlutusScriptVersion (..),
9+
import Cardano.Api (PlutusScript (..), PlutusScriptV3, PlutusScriptVersion (..),
1410
Script (..), toScriptInAnyLang)
11+
1512
import Cardano.Benchmarking.ScriptAPI
13+
import qualified PlutusLedgerApi.V3 as PlutusV3
14+
15+
import Prelude hiding (pred, ($), (&&), (<), (==))
16+
1617
import qualified Data.ByteString.Short as SBS
1718

18-
import qualified PlutusLedgerApi.V3 as PlutusV3
19+
import Language.Haskell.TH
20+
import Language.Haskell.TH.Syntax
1921
import PlutusTx
2022
import PlutusTx.Builtins (unsafeDataAsI)
2123
import qualified PlutusTx.Builtins.Internal as BI (BuiltinList, head, snd, tail, unitval,

‎bench/plutus-scripts-bench/src/Cardano/Benchmarking/PlutusScripts/Ripemd160.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,7 @@
77

88
module Cardano.Benchmarking.PlutusScripts.Ripemd160 (script) where
99

10-
import Cardano.Api.Shelley (PlutusScript (..), PlutusScriptV3, PlutusScriptVersion (..),
10+
import Cardano.Api (PlutusScript (..), PlutusScriptV3, PlutusScriptVersion (..),
1111
Script (..), toScriptInAnyLang)
1212

1313
import Cardano.Benchmarking.ScriptAPI

‎bench/plutus-scripts-bench/src/Cardano/Benchmarking/PlutusScripts/SchnorrSecp256k1Loop.hs

Lines changed: 9 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -9,18 +9,21 @@
99

1010
module Cardano.Benchmarking.PlutusScripts.SchnorrSecp256k1Loop (script) where
1111

12-
import Language.Haskell.TH
13-
import Language.Haskell.TH.Syntax
12+
import Cardano.Api (PlutusScript (..), PlutusScriptV2, PlutusScriptVersion (..),
13+
Script (..), toScriptInAnyLang)
1414

15-
import Cardano.Api (PlutusScript, PlutusScriptV2, Script(..), toScriptInAnyLang)
16-
import Cardano.Api.Shelley (PlutusScript (..), PlutusScriptVersion (..))
1715
import Cardano.Benchmarking.ScriptAPI
18-
import qualified Data.ByteString.Short as SBS
1916
import qualified PlutusLedgerApi.V2 as PlutusV2
17+
18+
import Prelude as Haskell (String, (.), (<$>))
19+
20+
import qualified Data.ByteString.Short as SBS
21+
22+
import Language.Haskell.TH
23+
import Language.Haskell.TH.Syntax
2024
import qualified PlutusTx
2125
import qualified PlutusTx.Builtins as BI
2226
import PlutusTx.Prelude as P hiding (Semigroup (..), (.), (<$>))
23-
import Prelude as Haskell (String, (.), (<$>))
2427

2528

2629
scriptName :: Haskell.String

‎bench/plutus-scripts-bench/src/Cardano/Benchmarking/PlutusScripts/SupplementalDatum.hs

Lines changed: 13 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -6,19 +6,22 @@
66

77
module Cardano.Benchmarking.PlutusScripts.SupplementalDatum (script) where
88

9-
import Cardano.Api.Shelley (PlutusScript (..), PlutusScriptV3, PlutusScriptVersion (..),
9+
import Cardano.Api (PlutusScript (..), PlutusScriptV3, PlutusScriptVersion (..),
1010
Script (..), toScriptInAnyLang)
1111

1212
import Cardano.Benchmarking.ScriptAPI
13+
import qualified PlutusLedgerApi.V3 as V3
14+
import qualified PlutusLedgerApi.V3.Contexts as V3
15+
16+
import Prelude as Haskell (String, (.), (<$>))
17+
18+
import qualified Data.ByteString.Short as SBS
19+
1320
import Language.Haskell.TH
1421
import Language.Haskell.TH.Syntax
15-
import PlutusTx.Prelude as Tx hiding (Semigroup (..), (.), (<$>))
16-
import Prelude as Haskell (String, (.), (<$>))
1722
import PlutusTx
18-
import qualified Data.ByteString.Short as SBS
19-
import qualified PlutusLedgerApi.V3.Contexts as V3
20-
import qualified PlutusLedgerApi.V3 as V3
2123
import qualified PlutusTx.Builtins as PlutusTx
24+
import PlutusTx.Prelude as Tx hiding (Semigroup (..), (.), (<$>))
2225
import qualified PlutusTx.Prelude as PlutusTx
2326

2427
scriptName :: Haskell.String
@@ -31,12 +34,12 @@ script = mkPlutusBenchScript scriptName (toScriptInAnyLang (PlutusScript PlutusS
3134
-- | Write to disk with: cabal run plutus-scripts-bench -- print SupplementalDatum -o supplemental-datum.plutus
3235
{-# INLINABLE typedValidator #-}
3336
typedValidator :: V3.ScriptContext -> Bool
34-
typedValidator scriptContext =
37+
typedValidator scriptContext =
3538
PlutusTx.isJust (V3.findDatum supplementalDatumHash txInfo)
3639
where
3740
txInfo = V3.scriptContextTxInfo scriptContext
3841

39-
{- On chain we are dealing with raw bytes. You can generate the datum hash from the cli via:
42+
{- On chain we are dealing with raw bytes. You can generate the datum hash from the cli via:
4043
> cardano-cli transaction hash-script-data --script-data-value 1
4144
> ee155ace9c40292074cb6aff8c9ccdd273c81648ff1149ef36bcea6ebb8a3e25
4245
However this result is hex encoded. Therefore we have to convert to decimal notation and then use `integerToByteString` to convert to bytes.
@@ -46,8 +49,8 @@ supplementalDatumHash :: V3.DatumHash
4649
supplementalDatumHash = V3.DatumHash $ PlutusTx.integerToByteString PlutusTx.BigEndian 0 107688188478553082748947992068553556338831975613033640413719911361848497815077
4750

4851
{-# INLINABLE untypedValidator #-}
49-
untypedValidator :: BuiltinData -> BuiltinUnit
50-
untypedValidator ctx =
52+
untypedValidator :: BuiltinData -> BuiltinUnit
53+
untypedValidator ctx =
5154
PlutusTx.check (typedValidator (PlutusTx.unsafeFromBuiltinData ctx) )
5255

5356
supplementalDatumBs :: SBS.ShortByteString

‎bench/tx-generator/app/calibrate-script.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,7 @@
1111

1212
import Cardano.Api
1313
import Cardano.Api.Ledger (unCoin)
14-
import Cardano.Api.Shelley (PlutusScriptOrReferenceInput (..), ReferenceScript (..))
14+
import Cardano.Api (PlutusScriptOrReferenceInput (..), ReferenceScript (..))
1515

1616
import Cardano.Benchmarking.Compiler (keyBenchmarkInputs)
1717
#ifdef WITH_LIBRARY

‎bench/tx-generator/src/Cardano/Benchmarking/GeneratorTx/SubmissionClient.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -23,8 +23,8 @@ module Cardano.Benchmarking.GeneratorTx.SubmissionClient
2323
, txSubmissionClient
2424
) where
2525

26+
import Cardano.Api (Tx (..), fromShelleyTxId, toConsensusGenTx)
2627
import Cardano.Api hiding (Active)
27-
import Cardano.Api.Shelley (fromShelleyTxId, toConsensusGenTx, Tx (..))
2828

2929
import Cardano.Benchmarking.LogTypes
3030
import Cardano.Benchmarking.Types

‎bench/tx-generator/src/Cardano/Benchmarking/Script/Core.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -19,7 +19,7 @@ module Cardano.Benchmarking.Script.Core
1919
where
2020

2121
import Cardano.Api
22-
import Cardano.Api.Shelley (PlutusScriptOrReferenceInput (..), ShelleyLedgerEra)
22+
import Cardano.Api (PlutusScriptOrReferenceInput (..), ShelleyLedgerEra)
2323

2424
import Cardano.Benchmarking.GeneratorTx as GeneratorTx (AsyncBenchmarkControl)
2525
import qualified Cardano.Benchmarking.GeneratorTx as GeneratorTx (waitBenchmark, walletBenchmark)

‎bench/tx-generator/src/Cardano/TxGenerator/Genesis.hs

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -19,8 +19,6 @@ module Cardano.TxGenerator.Genesis
1919
where
2020

2121
import Cardano.Api
22-
import Cardano.Api.Shelley (ReferenceScript (..), fromShelleyPaymentCredential,
23-
fromShelleyStakeReference)
2422

2523
import qualified Cardano.Ledger.Coin as L
2624
import Cardano.Ledger.Shelley.API (Addr (..), sgInitialFunds)

‎bench/tx-generator/src/Cardano/TxGenerator/ProtocolParameters.hs

Lines changed: 5 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -30,13 +30,14 @@ where
3030

3131
--------------------------------------------------------------------------------
3232

33-
import Cardano.Api (AnyPlutusScriptVersion (..), CostModel, ExecutionUnits,
33+
import Cardano.Api (AnyPlutusScriptVersion (..), CostModel, ExecutionUnitPrices (..),
34+
ExecutionUnits, LedgerProtocolParameters (..),
3435
PlutusScriptVersion (PlutusScriptV1, PlutusScriptV2, PlutusScriptV3), PraosNonce,
35-
ProtocolParametersConversionError (..), makePraosNonce)
36-
import Cardano.Api.Shelley (ExecutionUnitPrices (..), LedgerProtocolParameters (..),
36+
ProtocolParametersConversionError (..),
3737
ShelleyBasedEra (ShelleyBasedEraAllegra, ShelleyBasedEraAlonzo, ShelleyBasedEraBabbage, ShelleyBasedEraConway, ShelleyBasedEraMary, ShelleyBasedEraShelley),
3838
ShelleyLedgerEra, fromAlonzoCostModels, fromAlonzoExUnits, fromAlonzoPrices,
39-
toAlonzoCostModels, toAlonzoExUnits, toAlonzoPrices, toLedgerNonce)
39+
makePraosNonce, toAlonzoCostModels, toAlonzoExUnits, toAlonzoPrices,
40+
toLedgerNonce)
4041

4142
import qualified Cardano.Binary as CBOR
4243
import qualified Cardano.Crypto.Hash.Class as Crypto

‎bench/tx-generator/src/Cardano/TxGenerator/Setup/Plutus.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -26,7 +26,7 @@ import Control.Monad.Writer (runWriter)
2626
import Cardano.CLI.Read (readFileScriptInAnyLang)
2727

2828
import Cardano.Api
29-
import Cardano.Api.Shelley (PlutusScript (..), fromAlonzoExUnits, toPlutusData)
29+
import Cardano.Api (PlutusScript (..), fromAlonzoExUnits, toPlutusData)
3030
import Cardano.Ledger.Plutus.TxInfo (exBudgetToExUnits)
3131

3232
import qualified PlutusLedgerApi.V1 as PlutusV1

‎bench/tx-generator/src/Cardano/TxGenerator/Tx.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,7 @@ module Cardano.TxGenerator.Tx
88
where
99

1010
import Cardano.Api
11-
import Cardano.Api.Shelley (LedgerProtocolParameters)
11+
import Cardano.Api (LedgerProtocolParameters)
1212

1313
import qualified Cardano.Ledger.Coin as L
1414
import Cardano.TxGenerator.Fund

‎bench/tx-generator/src/Cardano/TxGenerator/UTxO.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,7 @@ module Cardano.TxGenerator.UTxO
77
where
88

99
import Cardano.Api
10-
import Cardano.Api.Shelley (ReferenceScript (..))
10+
import Cardano.Api (ReferenceScript (..))
1111

1212
import qualified Cardano.Ledger.Coin as L
1313
import Cardano.TxGenerator.Fund (Fund (..), FundInEra (..))

‎bench/tx-generator/test/ApiTest.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,7 @@ module Main (module Main) where
1111

1212
import Cardano.Api
1313
import qualified Cardano.Api.Ledger as Api
14-
import Cardano.Api.Shelley (fromPlutusData, sgNetworkMagic)
14+
import Cardano.Api (fromPlutusData, sgNetworkMagic)
1515

1616
#ifdef WITH_LIBRARY
1717
import Cardano.Benchmarking.PlutusScripts

‎cardano-node-chairman/app/Cardano/Chairman.hs

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -12,7 +12,6 @@
1212
module Cardano.Chairman (chairmanTest) where
1313

1414
import Cardano.Api
15-
import Cardano.Api.Shelley
1615

1716
import Cardano.Ledger.BaseTypes (unNonZero)
1817
import Ouroboros.Consensus.Block.Abstract

‎cardano-node/src/Cardano/Node/Protocol/Alonzo.hs

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -9,7 +9,6 @@ module Cardano.Node.Protocol.Alonzo
99
) where
1010

1111
import Cardano.Api
12-
import Cardano.Api.Shelley
1312

1413
import qualified Cardano.Ledger.Alonzo.Genesis as Alonzo
1514
import Cardano.Node.Orphans ()

‎cardano-node/src/Cardano/Node/Protocol/Byron.hs

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -13,6 +13,10 @@ module Cardano.Node.Protocol.Byron
1313
) where
1414

1515
import Cardano.Api.Byron
16+
import Cardano.Api.Consensus
17+
import Cardano.Api.Monad.Error
18+
import Cardano.Api.Pretty
19+
import Cardano.Api.Serialise.Raw
1620

1721
import qualified Cardano.Chain.Genesis as Genesis
1822
import qualified Cardano.Chain.Update as Update

‎cardano-node/src/Cardano/Node/Protocol/Shelley.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -22,8 +22,8 @@ module Cardano.Node.Protocol.Shelley
2222
, checkExpectedGenesisHash
2323
) where
2424

25+
import Cardano.Api hiding (FileError)
2526
import qualified Cardano.Api as Api
26-
import Cardano.Api.Shelley hiding (FileError)
2727

2828
import qualified Cardano.Crypto.Hash.Class as Crypto
2929
import Cardano.Ledger.BaseTypes (ProtVer (..), natVersion)

‎cardano-node/src/Cardano/Node/Run.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -23,7 +23,7 @@ module Cardano.Node.Run
2323
) where
2424

2525
import Cardano.Api (File (..), FileDirection (..))
26-
import Cardano.Api.Internal.Error (displayError)
26+
import Cardano.Api.Error (displayError)
2727
import qualified Cardano.Api as Api
2828
import System.Random (randomIO)
2929

‎cardano-node/src/Cardano/Node/Tracing/Era/Shelley.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -18,8 +18,8 @@
1818
module Cardano.Node.Tracing.Era.Shelley () where
1919

2020
import Cardano.Api (textShow)
21+
import qualified Cardano.Api as Api
2122
import Cardano.Api.Ledger (fromVRFVerKeyHash)
22-
import qualified Cardano.Api.Shelley as Api
2323

2424
import qualified Cardano.Crypto.Hash.Class as Crypto
2525
import qualified Cardano.Crypto.VRF.Class as Crypto

‎cardano-node/src/Cardano/Node/Tracing/Render.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -30,7 +30,7 @@ module Cardano.Node.Tracing.Render
3030
, renderMissingRedeemers
3131
) where
3232

33-
import qualified Cardano.Api.Shelley as Api
33+
import qualified Cardano.Api as Api
3434

3535
import qualified Cardano.Crypto.Hash.Class as Crypto
3636
import Cardano.Ledger.Alonzo.Scripts (AlonzoPlutusPurpose (..), AsItem (..),

‎cardano-node/src/Cardano/Tracing/HasIssuer.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -11,9 +11,9 @@ module Cardano.Tracing.HasIssuer
1111
, HasIssuer (..)
1212
) where
1313

14-
import Cardano.Api (serialiseToRawBytes, verificationKeyHash)
14+
import Cardano.Api (VerificationKey (StakePoolVerificationKey), serialiseToRawBytes,
15+
verificationKeyHash)
1516
import Cardano.Api.Byron (VerificationKey (ByronVerificationKey))
16-
import Cardano.Api.Shelley (VerificationKey (StakePoolVerificationKey))
1717

1818
import qualified Cardano.Chain.Block as Byron
1919
import qualified Cardano.Ledger.Shelley.API as Shelley

‎cardano-node/src/Cardano/Tracing/OrphanInstances/Shelley.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -20,7 +20,7 @@
2020
module Cardano.Tracing.OrphanInstances.Shelley () where
2121

2222
import Cardano.Api (textShow)
23-
import qualified Cardano.Api.Shelley as Api
23+
import qualified Cardano.Api as Api
2424

2525
import qualified Cardano.Crypto.Hash.Class as Crypto
2626
import qualified Cardano.Crypto.VRF.Class as Crypto

0 commit comments

Comments
 (0)