Remove unused function getPaymentScriptHash

cardano-scaling · Dec 9, 2024 · 93ffeac · 93ffeac
1 parent c6da03a
commit 93ffeac
Showing 1 changed file with 0 additions and 8 deletions.
diff --git 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) =