transaction submit: print transaction hash

IntersectMBO · Nov 7, 2024 · 3d8aefa · 3d8aefa
1 parent 808d843
commit 3d8aefa
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Transaction.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Transaction.hs
@@ -1483,7 +1483,9 @@ runTransactionSubmitCmd
 
     res <- liftIO $ submitTxToNodeLocal localNodeConnInfo txInMode
     case res of
-      Net.Tx.SubmitSuccess -> liftIO $ Text.putStrLn "Transaction successfully submitted."
+      Net.Tx.SubmitSuccess -> do
+        liftIO $ Text.putStrLn "Transaction successfully submitted. Transaction hash is:"
+        liftIO $ BS.putStrLn $ serialiseToRawBytesHex (getTxId $ getTxBody tx)
       Net.Tx.SubmitFail reason ->
         case reason of
           TxValidationErrorInCardanoMode err -> left . TxCmdTxSubmitError . Text.pack $ show err