From 74d0e230435a313a5f657acf4f2e15ec74582fea Mon Sep 17 00:00:00 2001
From: Daniel Firth <daniel.firth@iohk.io>
Date: Thu, 3 Oct 2024 07:16:41 +0000
Subject: [PATCH] Remove unused Hydra.Cardano.Api.TxScriptValidity module

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

diff --git a/hydra-cardano-api/hydra-cardano-api.cabal b/hydra-cardano-api/hydra-cardano-api.cabal
index 85e91fb533c..c844e1b68bd 100644
--- a/hydra-cardano-api/hydra-cardano-api.cabal
+++ b/hydra-cardano-api/hydra-cardano-api.cabal
@@ -68,7 +68,6 @@ library
     Hydra.Cardano.Api.TxOut
     Hydra.Cardano.Api.TxOutDatum
     Hydra.Cardano.Api.TxOutValue
-    Hydra.Cardano.Api.TxScriptValidity
     Hydra.Cardano.Api.UTxO
     Hydra.Cardano.Api.ValidityInterval
     Hydra.Cardano.Api.Value
diff --git a/hydra-cardano-api/src/Hydra/Cardano/Api.hs b/hydra-cardano-api/src/Hydra/Cardano/Api.hs
index 7145351b030..30e1980dc63 100644
--- a/hydra-cardano-api/src/Hydra/Cardano/Api.hs
+++ b/hydra-cardano-api/src/Hydra/Cardano/Api.hs
@@ -146,7 +146,6 @@ import Hydra.Cardano.Api.TxIn as Extras
 import Hydra.Cardano.Api.TxOut as Extras
 import Hydra.Cardano.Api.TxOutDatum as Extras
 import Hydra.Cardano.Api.TxOutValue as Extras
-import Hydra.Cardano.Api.TxScriptValidity as Extras
 import Hydra.Cardano.Api.UTxO as Extras
 import Hydra.Cardano.Api.ValidityInterval as Extras
 import Hydra.Cardano.Api.Value as Extras
diff --git a/hydra-cardano-api/src/Hydra/Cardano/Api/TxScriptValidity.hs b/hydra-cardano-api/src/Hydra/Cardano/Api/TxScriptValidity.hs
deleted file mode 100644
index 0bb879ad275..00000000000
--- a/hydra-cardano-api/src/Hydra/Cardano/Api/TxScriptValidity.hs
+++ /dev/null
@@ -1,14 +0,0 @@
-module Hydra.Cardano.Api.TxScriptValidity where
-
-import Hydra.Cardano.Api.Prelude
-
-import Cardano.Ledger.Alonzo.Tx qualified as Ledger
-
--- | Convert a cardano-api 'TxScriptValidity' into a cardano-ledger 'IsValid'
--- boolean wrapper.
-toLedgerScriptValidity :: TxScriptValidity era -> Ledger.IsValid
-toLedgerScriptValidity =
-  Ledger.IsValid . \case
-    TxScriptValidityNone -> True
-    TxScriptValidity _ ScriptValid -> True
-    TxScriptValidity _ ScriptInvalid -> False