From e76fdf8e052ed367eb8d4ecd70d8f34a8628c6f8 Mon Sep 17 00:00:00 2001
From: Daniel Firth <daniel.firth@iohk.io>
Date: Sun, 8 Dec 2024 09:58:01 +0000
Subject: [PATCH] Remove unused Hydra.Cardano.Api.CtxTx

---
 hydra-cardano-api/hydra-cardano-api.cabal     |  1 -
 hydra-cardano-api/src/Hydra/Cardano/Api.hs    |  1 -
 .../src/Hydra/Cardano/Api/CtxTx.hs            | 20 -------------------
 3 files changed, 22 deletions(-)
 delete mode 100644 hydra-cardano-api/src/Hydra/Cardano/Api/CtxTx.hs

diff --git a/hydra-cardano-api/hydra-cardano-api.cabal b/hydra-cardano-api/hydra-cardano-api.cabal
index debe20f831b..12910322359 100644
--- a/hydra-cardano-api/hydra-cardano-api.cabal
+++ b/hydra-cardano-api/hydra-cardano-api.cabal
@@ -46,7 +46,6 @@ library
     Hydra.Cardano.Api.AddressInEra
     Hydra.Cardano.Api.BlockHeader
     Hydra.Cardano.Api.ChainPoint
-    Hydra.Cardano.Api.CtxTx
     Hydra.Cardano.Api.ExecutionUnits
     Hydra.Cardano.Api.Hash
     Hydra.Cardano.Api.KeyWitness
diff --git a/hydra-cardano-api/src/Hydra/Cardano/Api.hs b/hydra-cardano-api/src/Hydra/Cardano/Api.hs
index 5820e1c64a5..561ef7a825d 100644
--- a/hydra-cardano-api/src/Hydra/Cardano/Api.hs
+++ b/hydra-cardano-api/src/Hydra/Cardano/Api.hs
@@ -125,7 +125,6 @@ import Hydra.Cardano.Api.Address ()
 import Hydra.Cardano.Api.AddressInEra as Extras
 import Hydra.Cardano.Api.BlockHeader as Extras
 import Hydra.Cardano.Api.ChainPoint as Extras
-import Hydra.Cardano.Api.CtxTx as Extras
 import Hydra.Cardano.Api.ExecutionUnits as Extras
 import Hydra.Cardano.Api.Hash as Extras
 import Hydra.Cardano.Api.KeyWitness as Extras
diff --git a/hydra-cardano-api/src/Hydra/Cardano/Api/CtxTx.hs b/hydra-cardano-api/src/Hydra/Cardano/Api/CtxTx.hs
deleted file mode 100644
index c3e9a7c6c09..00000000000
--- a/hydra-cardano-api/src/Hydra/Cardano/Api/CtxTx.hs
+++ /dev/null
@@ -1,20 +0,0 @@
-module Hydra.Cardano.Api.CtxTx where
-
-import Hydra.Cardano.Api.Prelude
-import Hydra.Cardano.Api.TxOut (modifyTxOutDatum)
-
--- | A convenient type-class for transforming types in 'CtxUTxO' to 'CtxTx'.
---
--- See also 'ToUtxoContext' for the reverse.
-class ToTxContext f where
-  toTxContext :: f CtxUTxO era -> f CtxTx era
-
-instance ToTxContext TxOutDatum where
-  toTxContext = \case
-    TxOutDatumNone -> TxOutDatumNone
-    TxOutDatumHash era h -> TxOutDatumHash era h
-    TxOutDatumInline s sd -> TxOutDatumInline s sd
-
-instance ToTxContext TxOut where
-  toTxContext =
-    modifyTxOutDatum toTxContext