From af84fda3202bc5b0fdf959a40da0b39e27825bd4 Mon Sep 17 00:00:00 2001
From: Alexey Kuleshevich <alexey.kuleshevich@iohk.io>
Date: Mon, 6 Mar 2023 22:28:29 +0300
Subject: [PATCH] Add new `Api.Tx.In` module

---
 libs/cardano-ledger-api/CHANGELOG.md          |  1 +
 .../cardano-ledger-api.cabal                  |  1 +
 .../src/Cardano/Ledger/Api/Tx/In.hs           | 27 +++++++++++++++++++
 3 files changed, 29 insertions(+)
 create mode 100644 libs/cardano-ledger-api/src/Cardano/Ledger/Api/Tx/In.hs

diff --git a/libs/cardano-ledger-api/CHANGELOG.md b/libs/cardano-ledger-api/CHANGELOG.md
index c382107b02c..26c7e4d98cb 100644
--- a/libs/cardano-ledger-api/CHANGELOG.md
+++ b/libs/cardano-ledger-api/CHANGELOG.md
@@ -5,6 +5,7 @@
 * Add `Cardano.Ledger.Api.Governance` that exposes all of the governance related types.
 * Addition of `Cardano.Ledger.Api.PParams`
 * Addition of `Cardano.Ledger.Api.Tx.Address`
+* Addition of `Cardano.Ledger.Api.Tx.In`
 * Hide `ShelleyTxBody`, `AlonzoTxBody`, `BabbageTxBody` from `Cardano.Ledger.Api.Tx.Body`
 * Export `Withdrawals` from `Cardano.Ledger.Api.Tx.Body`
 * Export `ShelleyTxAuxData`, `AllegraTxAuxData` and `AlonzoTxAuxData` from
diff --git a/libs/cardano-ledger-api/cardano-ledger-api.cabal b/libs/cardano-ledger-api/cardano-ledger-api.cabal
index 13acbb8d5f1..09bda574a0b 100644
--- a/libs/cardano-ledger-api/cardano-ledger-api.cabal
+++ b/libs/cardano-ledger-api/cardano-ledger-api.cabal
@@ -31,6 +31,7 @@ library
         Cardano.Ledger.Api.Tx.Address
         Cardano.Ledger.Api.Tx.AuxData
         Cardano.Ledger.Api.Tx.Body
+        Cardano.Ledger.Api.Tx.In
         Cardano.Ledger.Api.Tx.Out
         Cardano.Ledger.Api.Tx.Wits
         Cardano.Ledger.Api.UTxO
diff --git a/libs/cardano-ledger-api/src/Cardano/Ledger/Api/Tx/In.hs b/libs/cardano-ledger-api/src/Cardano/Ledger/Api/Tx/In.hs
new file mode 100644
index 00000000000..516fd0c3d48
--- /dev/null
+++ b/libs/cardano-ledger-api/src/Cardano/Ledger/Api/Tx/In.hs
@@ -0,0 +1,27 @@
+module Cardano.Ledger.Api.Tx.In (
+  -- * Transaction input
+  TxIn (..),
+
+  -- ** Transaction ID
+  TxId (..),
+  mkTxInPartial,
+
+  -- ** Transaction index
+  TxIx,
+  txIxToInt,
+  txIxFromIntegral,
+  mkTxIxPartial,
+)
+where
+
+import Cardano.Ledger.BaseTypes (
+  TxIx,
+  mkTxIxPartial,
+  txIxFromIntegral,
+  txIxToInt,
+ )
+import Cardano.Ledger.TxIn (
+  TxId (..),
+  TxIn (TxIn),
+  mkTxInPartial,
+ )