Move modules

IntersectMBO · Jul 15, 2024 · 4491ed7 · 4491ed7
1 parent 39de831
commit 4491ed7
Show file tree

Hide file tree

Showing 4 changed files with 18 additions and 4 deletions.
diff --git a/cardano-api/cardano-api.cabal b/cardano-api/cardano-api.cabal
@@ -132,7 +132,9 @@ library internal
     Cardano.Api.ReexposeNetwork
     Cardano.Api.Rewards
     Cardano.Api.Script
-    Cardano.Api.Scripts.New
+    Cardano.Api.Experimental.Eras
+    Cardano.Api.Experimental.Script
+    Cardano.Api.Experimental.UnsignedTx
     Cardano.Api.ScriptData
     Cardano.Api.SerialiseBech32
     Cardano.Api.SerialiseCBOR
@@ -237,7 +239,6 @@ library
     Cardano.Api.ChainSync.Client
     Cardano.Api.ChainSync.ClientPipelined
     Cardano.Api.Crypto.Ed25519Bip32
-    Cardano.Api.Experimental
     Cardano.Api.Ledger
     Cardano.Api.Network
     Cardano.Api.Shelley

diff --git a/cardano-api/src/Cardano/Api/Experimental.hs → ...internal/Cardano/Api/Experimental/Eras.hs b/cardano-api/src/Cardano/Api/Experimental.hs → ...internal/Cardano/Api/Experimental/Eras.hs
@@ -1,6 +1,6 @@
 {-# LANGUAGE PatternSynonyms #-}
 
-module Cardano.Api.Experimental
+module Cardano.Api.Experimental.Eras
   ( -- * New Era interface
   --  BabbageEra
   --, ConwayEra

diff --git a/...o-api/internal/Cardano/Api/Scripts/New.hs → ...ternal/Cardano/Api/Experimental/Script.hs b/...o-api/internal/Cardano/Api/Scripts/New.hs → ...ternal/Cardano/Api/Experimental/Script.hs
@@ -16,7 +16,7 @@
 
 {-# OPTIONS_GHC -Wno-unticked-promoted-constructors #-}
 
-module Cardano.Api.Scripts.New where
+module Cardano.Api.Experimental.Script where
 
 import           Cardano.Api.HasTypeProxy
 import           Cardano.Api.Protocol.AvailableEras

diff --git a/cardano-api/internal/Cardano/Api/Experimental/UnsignedTx.hs b/cardano-api/internal/Cardano/Api/Experimental/UnsignedTx.hs
@@ -0,0 +1,13 @@
+module Cardano.Api.Experimental.UnsignedTx where
+
+import           Cardano.Api.Experimental.Eras
+
+import qualified Cardano.Ledger.Core as Ledger
+
+
+-- A transaction that contains everything
+-- except signing key witnesses
+data UnsignedTx era
+  = UnsignedTx
+      (Ledger.Tx (ToConstrainedEra era))
+      (Ledger.TxWits (ToConstrainedEra era))