Export unsafe constructors from Internal modules

IntersectMBO · Oct 1, 2024 · 28abc8e · 28abc8e
1 parent f49975b
commit 28abc8e
Show file tree

Hide file tree

Showing 8 changed files with 13 additions and 8 deletions.
diff --git a/eras/allegra/impl/src/Cardano/Ledger/Allegra/TxBody/Internal.hs b/eras/allegra/impl/src/Cardano/Ledger/Allegra/TxBody/Internal.hs
@@ -30,6 +30,7 @@
 module Cardano.Ledger.Allegra.TxBody.Internal (
   AllegraEraTxBody (..),
   AllegraTxBody (
+    ..,
     AllegraTxBody,
     atbAuxDataHash,
     atbCerts,

diff --git a/eras/alonzo/impl/src/Cardano/Ledger/Alonzo/TxBody/Internal.hs b/eras/alonzo/impl/src/Cardano/Ledger/Alonzo/TxBody/Internal.hs
@@ -38,6 +38,7 @@ module Cardano.Ledger.Alonzo.TxBody.Internal (
   Addr28Extra,
   DataHash32,
   AlonzoTxBody (
+    ..,
     AlonzoTxBody,
     atbInputs,
     atbCollateral,
@@ -53,7 +54,7 @@ module Cardano.Ledger.Alonzo.TxBody.Internal (
     atbAuxDataHash,
     atbTxNetworkId
   ),
-  AlonzoTxBodyRaw,
+  AlonzoTxBodyRaw (..),
   AlonzoTxBodyUpgradeError (..),
   AlonzoEraTxBody (..),
   ShelleyEraTxBody (..),

diff --git a/eras/alonzo/impl/src/Cardano/Ledger/Alonzo/TxSeq/Internal.hs b/eras/alonzo/impl/src/Cardano/Ledger/Alonzo/TxSeq/Internal.hs
@@ -23,7 +23,7 @@
 -- The contents of this module may change __in any way whatsoever__
 -- and __without any warning__ between minor versions of this package.
 module Cardano.Ledger.Alonzo.TxSeq.Internal (
-  AlonzoTxSeq (AlonzoTxSeq, txSeqTxns),
+  AlonzoTxSeq (.., AlonzoTxSeq),
   TxSeq,
   hashTxSeq,
   hashAlonzoTxSeq,

diff --git a/eras/babbage/impl/src/Cardano/Ledger/Babbage/TxBody/Internal.hs b/eras/babbage/impl/src/Cardano/Ledger/Babbage/TxBody/Internal.hs
@@ -39,6 +39,7 @@ module Cardano.Ledger.Babbage.TxBody.Internal (
   allSizedOutputsBabbageTxBodyF,
   babbageMinUTxOValue,
   BabbageTxBody (
+    ..,
     BabbageTxBody,
     btbInputs,
     btbCollateral,
@@ -57,7 +58,7 @@ module Cardano.Ledger.Babbage.TxBody.Internal (
     btbAuxDataHash,
     btbTxNetworkId
   ),
-  BabbageTxBodyRaw,
+  BabbageTxBodyRaw (..),
   BabbageTxBodyUpgradeError (..),
   babbageAllInputsTxBodyF,
   babbageSpendableInputsTxBodyF,

diff --git a/eras/conway/impl/src/Cardano/Ledger/Conway/TxBody/Internal.hs b/eras/conway/impl/src/Cardano/Ledger/Conway/TxBody/Internal.hs
@@ -33,6 +33,7 @@
 module Cardano.Ledger.Conway.TxBody.Internal (
   ConwayEraTxBody (..),
   ConwayTxBody (
+    ..,
     ConwayTxBody,
     ctbSpendInputs,
     ctbCollateralInputs,
@@ -54,7 +55,7 @@ module Cardano.Ledger.Conway.TxBody.Internal (
     ctbCurrentTreasuryValue,
     ctbTreasuryDonation
   ),
-  ConwayTxBodyRaw,
+  ConwayTxBodyRaw (..),
   conwayTotalDepositsTxBody,
   conwayProposalsDeposits,
 ) where

diff --git a/eras/mary/impl/src/Cardano/Ledger/Mary/TxBody/Internal.hs b/eras/mary/impl/src/Cardano/Ledger/Mary/TxBody/Internal.hs
@@ -29,6 +29,7 @@
 module Cardano.Ledger.Mary.TxBody.Internal (
   MaryEraTxBody (..),
   MaryTxBody (
+    ..,
     MaryTxBody,
     mtbAuxDataHash,
     mtbCerts,
@@ -40,7 +41,7 @@ module Cardano.Ledger.Mary.TxBody.Internal (
     mtbWithdrawals,
     mtbMint
   ),
-  MaryTxBodyRaw,
+  MaryTxBodyRaw (..),
 )
 where
 

diff --git a/eras/shelley/impl/src/Cardano/Ledger/Shelley/Tx/Internal.hs b/eras/shelley/impl/src/Cardano/Ledger/Shelley/Tx/Internal.hs
@@ -27,12 +27,13 @@
 module Cardano.Ledger.Shelley.Tx.Internal (
   -- * Transaction
   ShelleyTx (
+    ..,
     ShelleyTx,
     body,
     wits,
     auxiliaryData
   ),
-  ShelleyTxRaw,
+  ShelleyTxRaw (..),
   bodyShelleyTxL,
   witsShelleyTxL,
   auxDataShelleyTxL,

diff --git a/libs/cardano-ledger-core/src/Cardano/Ledger/MemoBytes/Internal.hs b/libs/cardano-ledger-core/src/Cardano/Ledger/MemoBytes/Internal.hs
@@ -17,7 +17,6 @@
 {-# LANGUAGE TypeFamilyDependencies #-}
 {-# LANGUAGE TypeOperators #-}
 {-# LANGUAGE UndecidableInstances #-}
-
 {-# OPTIONS_HADDOCK not-home #-}
 
 -- | Provides MemoBytes internals
@@ -29,7 +28,7 @@
 -- The contents of this module may change __in any way whatsoever__
 -- and __without any warning__ between minor versions of this package.
 module Cardano.Ledger.MemoBytes.Internal (
-  MemoBytes (Memo),
+  MemoBytes (.., Memo),
   MemoHashIndex,
   Mem,
   mkMemoBytes,