Output hash to file even in case of expected-hash flag

IntersectMBO · Sep 18, 2024 · 4f7cdac · 4f7cdac
1 parent 432dedf
commit 4f7cdac
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/cardano-cli/src/Cardano/CLI/Run/Hash.hs b/cardano-cli/src/Cardano/CLI/Run/Hash.hs
@@ -20,13 +20,15 @@ import           Cardano.CLI.Types.Errors.HashCmdError
 import           Cardano.Crypto.Hash (hashToTextAsHex)
 
 import           Control.Exception (throw)
+import           Control.Monad (when)
 import           Control.Monad.Catch (Exception, Handler (Handler))
 import qualified Data.ByteString as BS
 import qualified Data.ByteString.Char8 as BS8
 import qualified Data.ByteString.Lazy as BSL
 import           Data.Char (toLower)
 import           Data.Function
 import           Data.List (intercalate)
+import           Data.Maybe (isJust)
 import qualified Data.Text as Text
 import qualified Data.Text.Encoding as Text
 import qualified Data.Text.IO as Text
@@ -68,7 +70,9 @@ runHashAnchorDataCmd Cmd.HashAnchorDataCmdArgs{toHash, mExpectedHash, mOutFile}
     Just expectedHash
       | hash /= expectedHash ->
           left $ HashMismatchedHashError expectedHash hash
-      | otherwise -> liftIO $ putStrLn "Hashes match!"
+      | otherwise -> do
+          liftIO $ putStrLn "Hashes match!"
+          when (isJust mOutFile) $ writeHash hash
     Nothing -> writeHash hash
  where
   writeHash :: L.SafeHash L.StandardCrypto i -> ExceptT HashCmdError IO ()