Merge pull request #667 from IntersectMBO/remove-transitive-deps-cons…

…ensus-backport

Expose functions and types from `ouroboros-*` required by `cardano-cli`

cardano-api/cardano-api.cabal

@@ -129,6 +129,7 @@ library internal
     Cardano.Api.Query
     Cardano.Api.Query.Expr
     Cardano.Api.Query.Types
+    Cardano.Api.ReexposeConsensus
     Cardano.Api.ReexposeLedger
     Cardano.Api.ReexposeNetwork
     Cardano.Api.Rewards
@@ -238,6 +239,7 @@ library
     Cardano.Api.ChainSync.Client
     Cardano.Api.ChainSync.ClientPipelined
     Cardano.Api.Compatible
+    Cardano.Api.Consensus
     Cardano.Api.Crypto.Ed25519Bip32
     Cardano.Api.Experimental
     Cardano.Api.Ledger

cardano-api/internal/Cardano/Api/ReexposeConsensus.hs

@@ -0,0 +1,29 @@
+module Cardano.Api.ReexposeConsensus
+  ( ByronBlock
+  , ChainDepState
+  , GenTx (..)
+  , EraMismatch (..)
+  , PastHorizonException
+  , PraosProtocolSupportsNode
+  , PraosProtocolSupportsNodeCrypto
+  , ShelleyGenesisStaking (..)
+  , byronIdTx
+  , condense
+  , getOpCertCounters
+  , interpreterToEpochInfo
+  , unsafeExtendSafeZone
+  , txId
+  )
+where
+
+import           Ouroboros.Consensus.Byron.Ledger (ByronBlock, GenTx (..), byronIdTx)
+import           Ouroboros.Consensus.Cardano.Block (EraMismatch (..))
+import           Ouroboros.Consensus.HardFork.History.EpochInfo (interpreterToEpochInfo)
+import           Ouroboros.Consensus.HardFork.History.Qry (PastHorizonException,
+                   unsafeExtendSafeZone)
+import           Ouroboros.Consensus.Ledger.SupportsMempool (txId)
+import           Ouroboros.Consensus.Protocol.Abstract (ChainDepState)
+import           Ouroboros.Consensus.Protocol.Praos.Common (PraosProtocolSupportsNode,
+                   PraosProtocolSupportsNodeCrypto, getOpCertCounters)
+import           Ouroboros.Consensus.Shelley.Node (ShelleyGenesisStaking (..))
+import           Ouroboros.Consensus.Util.Condense (condense)

cardano-api/internal/Cardano/Api/ReexposeNetwork.hs

@@ -1,3 +1,5 @@
-module Cardano.Api.ReexposeNetwork (Target (..)) where
+module Cardano.Api.ReexposeNetwork (Target (..), Serialised (..), SubmitResult (..)) where
 
+import           Ouroboros.Network.Block (Serialised (..))
 import           Ouroboros.Network.Protocol.LocalStateQuery.Type (Target (..))
+import           Ouroboros.Network.Protocol.LocalTxSubmission.Type (SubmitResult (..))

cardano-api/src/Cardano/Api/Consensus.hs

@@ -0,0 +1,6 @@
+module Cardano.Api.Consensus
+  ( module Cardano.Api.ReexposeConsensus
+  )
+where
+
+import           Cardano.Api.ReexposeConsensus