Add hashSimpleScript

Author: Jimbo4350

cardano-api/src/Cardano/Api/Experimental.hs

@@ -53,6 +53,7 @@ module Cardano.Api.Experimental
   , SimpleScript (..)
   , SimpleScriptOrReferenceInput (..)
   , deserialiseSimpleScript
+  , hashSimpleScript
 
     -- ** Plutus related
   , PlutusScriptInEra (..)

cardano-api/src/Cardano/Api/Experimental/Simple/Script.hs

@@ -4,12 +4,14 @@
 {-# LANGUAGE StandaloneDeriving #-}
 {-# LANGUAGE TypeApplications #-}
 {-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE TypeOperators #-}
 {-# LANGUAGE UndecidableInstances #-}
 
 module Cardano.Api.Experimental.Simple.Script
   ( SimpleScript (..)
   , SimpleScriptOrReferenceInput (..)
   , deserialiseSimpleScript
+  , hashSimpleScript
   )
 where
 
@@ -56,6 +58,10 @@ deserialiseSimpleScript
 deserialiseSimpleScript bs =
   deserialiseFromCBOR (proxyToAsType (Proxy @(SimpleScript era))) bs
 
+hashSimpleScript
+  :: L.NativeScript era ~ L.Script era => SimpleScript era -> L.ScriptHash
+hashSimpleScript (SimpleScript ns) = L.hashScript ns
+
 data SimpleScriptOrReferenceInput era
   = SScript (SimpleScript era)
   | SReferenceScript TxIn