WIP

Author: Soupstraw

eras/shelley/impl/src/Cardano/Ledger/Shelley/BlockChain.hs

@@ -50,7 +50,7 @@ import Cardano.Ledger.Binary (
  )
 import Cardano.Ledger.Core
 import Cardano.Ledger.Shelley.Era (ShelleyEra)
-import Cardano.Ledger.Shelley.Tx (ShelleyTx, segWitTx)
+import Cardano.Ledger.Shelley.Tx (ShelleyTx)
 import Cardano.Ledger.Slot (SlotNo (..))
 import Control.Monad (unless)
 import Data.ByteString (ByteString)

eras/shelley/impl/src/Cardano/Ledger/Shelley/Tx.hs

@@ -1,19 +1,11 @@
 module Cardano.Ledger.Shelley.Tx (
   -- * Transaction
-  ShelleyTx (
-    MkShelleyTx,
-    ShelleyTx,
-    body,
-    wits,
-    auxiliaryData
-  ),
-  ShelleyTxRaw (..),
+  ShelleyTx (..),
   bodyShelleyTxL,
   witsShelleyTxL,
   auxDataShelleyTxL,
   sizeShelleyTxF,
   wireSizeShelleyTxF,
-  segWitTx,
   mkBasicShelleyTx,
   shelleyMinFeeTx,
   witsFromTxWitnesses,