Output datum hashes

input-output-hk · Oct 12, 2021 · b7b5660 · b7b5660
1 parent 160c0c4
commit b7b5660
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/hydra-plutus/exe/inspect-script/Main.hs b/hydra-plutus/exe/inspect-script/Main.hs
@@ -9,7 +9,7 @@ import Data.Text (pack)
 import Hydra.Contract.Commit as Commit
 import Hydra.Contract.Head as Head
 import Hydra.Contract.Initial as Initial
-import Ledger (Datum (..))
+import Ledger (Datum (..), datumHash)
 import Ledger.Value
 import Plutus.V1.Ledger.Api (Redeemer (Redeemer), dataToBuiltinData, toData)
 
@@ -35,6 +35,10 @@ main = do
 
   putTextLn "Serialise redeemers:"
   writeEnvelopes redeemers
+
+  putTextLn "Datum hashes:"
+  forM_ datums $ \(aDatum, datumName) ->
+    putTextLn $ toText $ datumName <> ": " <> show (datumHash aDatum)
  where
   writeEnvelopes :: HasTextEnvelope item => [(item, String)] -> IO ()
   writeEnvelopes plutus =