Remove unused function getPaymentScriptHash

cardano-scaling · Dec 9, 2024 · 4879d16 · 4879d16
1 parent c6da03a
commit 4879d16
Showing 1 changed file with 0 additions and 9 deletions.
diff --git a/hydra-cardano-api/src/Hydra/Cardano/Api/ScriptHash.hs b/hydra-cardano-api/src/Hydra/Cardano/Api/ScriptHash.hs
@@ -4,19 +4,10 @@ module Hydra.Cardano.Api.ScriptHash where
 
 import Hydra.Cardano.Api.Prelude
 
-import Cardano.Ledger.Credential qualified as Ledger
 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) =