From 93ffeace68c00bd4784d55590f1b4d10c5e10b0a Mon Sep 17 00:00:00 2001
From: Daniel Firth <daniel.firth@iohk.io>
Date: Mon, 9 Dec 2024 04:14:49 +0000
Subject: [PATCH] Remove unused function getPaymentScriptHash

---
 hydra-cardano-api/src/Hydra/Cardano/Api/ScriptHash.hs | 8 --------
 1 file changed, 8 deletions(-)

diff --git a/hydra-cardano-api/src/Hydra/Cardano/Api/ScriptHash.hs b/hydra-cardano-api/src/Hydra/Cardano/Api/ScriptHash.hs
index 2477fb351b4..96104794041 100644
--- a/hydra-cardano-api/src/Hydra/Cardano/Api/ScriptHash.hs
+++ b/hydra-cardano-api/src/Hydra/Cardano/Api/ScriptHash.hs
@@ -9,14 +9,6 @@ import Hydra.Cardano.Api.PlutusScript ()
 
 -- * Extras
 
--- | Extract the payment part of an address, as a script hash.
-getPaymentScriptHash :: AddressInEra era -> Maybe ScriptHash
-getPaymentScriptHash = \case
-  AddressInEra _ (ShelleyAddress _ (Ledger.ScriptHashObj h) _) ->
-    Just (fromShelleyScriptHash h)
-  _ ->
-    Nothing
-
 -- | Like 'hashScript', but for a 'ScriptInAnyLang'.
 hashScriptInAnyLang :: ScriptInAnyLang -> ScriptHash
 hashScriptInAnyLang (ScriptInAnyLang _ script) =