Skip to content

Commit 3ee9614

Browse files
palaspalas
committed
Run formatter on everything
1 parent c341ed4 commit 3ee9614

5 files changed

Lines changed: 43 additions & 42 deletions

File tree

‎cardano-api/src/Cardano/Api/Experimental/Plutus/Internal/Shim/LegacyScripts.hs‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -49,8 +49,8 @@ import Cardano.Ledger.Alonzo.Scripts qualified as L
4949
import Cardano.Ledger.BaseTypes (Version)
5050
import Cardano.Ledger.Core qualified as L
5151
import Cardano.Ledger.Dijkstra.Scripts qualified as Dijkstra
52-
import Cardano.Ledger.Plutus.Language qualified as L
5352
import Cardano.Ledger.Mary.Value qualified as L
53+
import Cardano.Ledger.Plutus.Language qualified as L
5454

5555
import Data.Text qualified as Text
5656
import Data.Typeable

‎cardano-api/src/Cardano/Api/Ledger/Internal/Reexport.hs‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -215,7 +215,7 @@ module Cardano.Api.Ledger.Internal.Reexport
215215
where
216216

217217
import Cardano.Crypto.Hash.Class (hashFromBytes, hashToBytes)
218-
import Cardano.Ledger.Address (Addr (..), AccountAddress (..))
218+
import Cardano.Ledger.Address (AccountAddress (..), Addr (..))
219219
import Cardano.Ledger.Allegra.Scripts (AllegraEraScript (..), Timelock (..), showTimelock)
220220
import Cardano.Ledger.Alonzo.Core
221221
( AlonzoEraScript (..)
@@ -409,13 +409,13 @@ import Cardano.Ledger.Shelley.TxCert
409409
)
410410
import Cardano.Ledger.State
411411
( PoolMetadata (..)
412-
, StakePoolParams (..)
413412
, ScriptsNeeded
413+
, StakePoolParams (..)
414414
, StakePoolRelay (..)
415415
, UTxO (..)
416-
, getScriptsNeeded
417416
, casReservesL
418417
, casTreasuryL
418+
, getScriptsNeeded
419419
)
420420
import Cardano.Ledger.TxIn (TxId (..), TxIn (..))
421421
import Cardano.Ledger.Val

‎cardano-api/src/Cardano/Api/Network/IPC/Internal.hs‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -77,6 +77,11 @@ import Cardano.Api.Query.Internal.Type.QueryInMode
7777
import Cardano.Api.Tx.Internal.Body
7878
import Cardano.Api.Tx.Internal.Sign
7979

80+
import Cardano.Network.NodeToClient
81+
( NodeToClientProtocols (..)
82+
, NodeToClientVersionData (..)
83+
)
84+
import Cardano.Network.NodeToClient qualified as Net
8085
import Cardano.Protocol.Crypto (StandardCrypto)
8186
import Ouroboros.Consensus.Block qualified as Consensus
8287
import Ouroboros.Consensus.Cardano.Block qualified as Consensus
@@ -92,11 +97,6 @@ import Ouroboros.Consensus.Shelley.Ledger.Block qualified as Consensus
9297
import Ouroboros.Consensus.Shelley.Ledger.SupportsProtocol ()
9398
import Ouroboros.Network.Block qualified as Net
9499
import Ouroboros.Network.Mux qualified as Net
95-
import Cardano.Network.NodeToClient
96-
( NodeToClientProtocols (..)
97-
, NodeToClientVersionData (..)
98-
)
99-
import Cardano.Network.NodeToClient qualified as Net
100100
import Ouroboros.Network.Protocol.ChainSync.Client as Net.Sync
101101
import Ouroboros.Network.Protocol.ChainSync.ClientPipelined as Net.SyncP
102102
import Ouroboros.Network.Protocol.LocalStateQuery.Client (LocalStateQueryClient (..))

‎cardano-api/src/Cardano/Api/Network/IPC/Internal/Version.hs‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,12 +10,12 @@ where
1010
import Cardano.Api.Error
1111
import Cardano.Api.Pretty
1212

13+
import Cardano.Network.NodeToClient.Version (NodeToClientVersion (..))
1314
import Cardano.Protocol.Crypto
1415
import Ouroboros.Consensus.Cardano.Block qualified as Consensus
1516
import Ouroboros.Consensus.Cardano.Node ()
1617
import Ouroboros.Consensus.Ledger.Query qualified as Consensus
1718
import Ouroboros.Consensus.Shelley.Ledger.SupportsProtocol ()
18-
import Cardano.Network.NodeToClient.Version (NodeToClientVersion (..))
1919
import Ouroboros.Network.Protocol.LocalStateQuery.Codec
2020

2121
-- | LocalStateQuery uses versioned queries, which means it requires the Node to support a minimum

‎cardano-api/src/Cardano/Api/Tx/Internal/Output.hs‎

Lines changed: 33 additions & 32 deletions
Original file line numberDiff line numberDiff line change
@@ -814,13 +814,13 @@ toShelleyTxOut sbe = shelleyBasedEraConstraints sbe $ \case
814814
.~ toBabbageTxOutDatumUTxO txoutdata
815815
& L.referenceScriptTxOutL
816816
.~ refScriptToShelleyScript sbe refScript
817-
-- TODO: this pattern shows up as redundant
818-
-- AlonzoEraOnwardsDijkstra ->
819-
-- L.mkBasicTxOut (toShelleyAddr addr) value
820-
-- & L.datumTxOutL
821-
-- .~ toBabbageTxOutDatumUTxO txoutdata
822-
-- & L.referenceScriptTxOutL
823-
-- .~ refScriptToShelleyScript sbe refScript
817+
-- TODO: this pattern shows up as redundant
818+
-- AlonzoEraOnwardsDijkstra ->
819+
-- L.mkBasicTxOut (toShelleyAddr addr) value
820+
-- & L.datumTxOutL
821+
-- .~ toBabbageTxOutDatumUTxO txoutdata
822+
-- & L.referenceScriptTxOutL
823+
-- .~ refScriptToShelleyScript sbe refScript
824824
)
825825
sbe
826826

@@ -855,13 +855,13 @@ toShelleyTxOutAny sbe = shelleyBasedEraConstraints sbe $ \case
855855
.~ toBabbageTxOutDatum txoutdata
856856
& L.referenceScriptTxOutL
857857
.~ refScriptToShelleyScript sbe refScript
858-
-- TODO: this pattern shows up as redundant
859-
-- AlonzoEraOnwardsDijkstra ->
860-
-- L.mkBasicTxOut (toShelleyAddr addr) value
861-
-- & L.datumTxOutL
862-
-- .~ toBabbageTxOutDatum txoutdata
863-
-- & L.referenceScriptTxOutL
864-
-- .~ refScriptToShelleyScript sbe refScript
858+
-- TODO: this pattern shows up as redundant
859+
-- AlonzoEraOnwardsDijkstra ->
860+
-- L.mkBasicTxOut (toShelleyAddr addr) value
861+
-- & L.datumTxOutL
862+
-- .~ toBabbageTxOutDatum txoutdata
863+
-- & L.referenceScriptTxOutL
864+
-- .~ refScriptToShelleyScript sbe refScript
865865
)
866866
sbe
867867

@@ -924,24 +924,25 @@ fromShelleyTxOut sbe ledgerTxOut = shelleyBasedEraConstraints sbe $ do
924924
where
925925
datum = ledgerTxOut ^. L.datumTxOutL
926926
mRefScript = ledgerTxOut ^. L.referenceScriptTxOutL
927-
-- TODO: this pattern shows up as redundant
928-
-- ShelleyBasedEraDijkstra ->
929-
-- TxOut
930-
-- addressInEra
931-
-- txOutValue
932-
-- ( fromBabbageTxOutDatum
933-
-- AlonzoEraOnwardsDijkstra
934-
-- BabbageEraOnwardsDijkstra
935-
-- datum
936-
-- )
937-
-- ( case mRefScript of
938-
-- SNothing -> ReferenceScriptNone
939-
-- SJust refScript ->
940-
-- fromShelleyScriptToReferenceScript ShelleyBasedEraDijkstra refScript
941-
-- )
942-
-- where
943-
-- datum = ledgerTxOut ^. L.datumTxOutL
944-
-- mRefScript = ledgerTxOut ^. L.referenceScriptTxOutL
927+
928+
-- TODO: this pattern shows up as redundant
929+
-- ShelleyBasedEraDijkstra ->
930+
-- TxOut
931+
-- addressInEra
932+
-- txOutValue
933+
-- ( fromBabbageTxOutDatum
934+
-- AlonzoEraOnwardsDijkstra
935+
-- BabbageEraOnwardsDijkstra
936+
-- datum
937+
-- )
938+
-- ( case mRefScript of
939+
-- SNothing -> ReferenceScriptNone
940+
-- SJust refScript ->
941+
-- fromShelleyScriptToReferenceScript ShelleyBasedEraDijkstra refScript
942+
-- )
943+
-- where
944+
-- datum = ledgerTxOut ^. L.datumTxOutL
945+
-- mRefScript = ledgerTxOut ^. L.referenceScriptTxOutL
945946

946947
-- ----------------------------------------------------------------------------
947948
-- Transaction output values (era-dependent)

0 commit comments

Comments
 (0)