Copy genesis hash to hash genesis-file

Author: palas

cardano-cli/src/Cardano/CLI/Commands/Hash.hs

@@ -1,4 +1,5 @@
 {-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DerivingStrategies #-}
 {-# LANGUAGE DuplicateRecordFields #-}
 {-# LANGUAGE LambdaCase #-}
 
@@ -22,6 +23,7 @@ import           Data.Text (Text)
 data HashCmds
   = HashAnchorDataCmd !HashAnchorDataCmdArgs
   | HashScriptCmd !HashScriptCmdArgs
+  | HashGenesisFile !GenesisFile
 
 data HashGoal hash
   = -- | The hash is written to stdout
@@ -58,3 +60,4 @@ renderHashCmds :: HashCmds -> Text
 renderHashCmds = \case
   HashAnchorDataCmd{} -> "hash anchor-data"
   HashScriptCmd{} -> "hash script"
+  HashGenesisFile{} -> "hash genesis-file"

cardano-cli/src/Cardano/CLI/Options/Hash.hs

@@ -20,7 +20,7 @@ pHashCmds :: Parser Cmd.HashCmds
 pHashCmds =
   subParser "hash" $
     Opt.info
-      (asum [pHashAnchorDataCmd, pHashScriptCmd])
+      (asum [pHashAnchorDataCmd, pHashScriptCmd, pHashGenesisHashCmd])
       ( Opt.progDesc $
           mconcat
             [ "Compute the hash to pass to the various --*-hash arguments of commands."
@@ -79,3 +79,13 @@ pHashScriptCmd = do
           )
       )
     $ Opt.progDesc "Compute the hash of a script (to then pass it to other commands)."
+
+pHashGenesisHashCmd :: Parser Cmd.HashCmds
+pHashGenesisHashCmd =
+  subParser "genesis-file" $
+    Opt.info pGenesisHash $
+      Opt.progDesc "Compute the hash of a genesis file."
+
+pGenesisHash :: Parser Cmd.HashCmds
+pGenesisHash =
+  Cmd.HashGenesisFile <$> pGenesisFile "The genesis file."

cardano-cli/src/Cardano/CLI/Run/Hash.hs

@@ -21,11 +21,12 @@ import qualified Cardano.Api.Ledger as L
 import qualified Cardano.CLI.Commands.Hash as Cmd
 import           Cardano.CLI.Parser (stringToAnchorScheme)
 import           Cardano.CLI.Read
-import           Cardano.CLI.Types.Common (AnchorScheme (..), MustCheckHash (..),
+import           Cardano.CLI.Types.Common (AnchorScheme (..), GenesisFile (..), MustCheckHash (..),
                    PotentiallyCheckedAnchor (..), SupportedSchemes)
 import           Cardano.CLI.Types.Errors.HashCmdError
 import           Cardano.Crypto.Hash (hashToTextAsHex)
-import           Cardano.Prelude (first)
+import qualified Cardano.Crypto.Hash as Crypto
+import           Cardano.Prelude (ByteString, first)
 
 import           Control.Exception (throw)
 import           Control.Monad (when)
@@ -55,6 +56,7 @@ runHashCmds
 runHashCmds = \case
   Cmd.HashAnchorDataCmd args -> runHashAnchorDataCmd args
   Cmd.HashScriptCmd args -> runHashScriptCmd args
+  Cmd.HashGenesisFile args -> runHashGenesisFile args
 
 runHashAnchorDataCmd
   :: ()
@@ -217,3 +219,12 @@ carryHashChecks potentiallyCheckedAnchor =
     TrustHash -> pure ()
  where
   anchor = pcaAnchor potentiallyCheckedAnchor
+
+runHashGenesisFile :: GenesisFile -> ExceptT HashCmdError IO ()
+runHashGenesisFile (GenesisFile fpath) = do
+  content <-
+    handleIOExceptT (HashGenesisCmdGenesisFileError . FileIOError fpath) $
+      BS.readFile fpath
+  let gh :: Crypto.Hash Crypto.Blake2b_256 ByteString
+      gh = Crypto.hashWith id content
+  liftIO $ Text.putStrLn (Crypto.hashToTextAsHex gh)

cardano-cli/src/Cardano/CLI/Types/Errors/HashCmdError.hs

@@ -27,6 +27,7 @@ data HashCmdError
   | HashWriteFileError !(FileError ())
   | HashReadScriptError !FilePath !(FileError ScriptDecodeError)
   | HashFetchURLError !FetchURLError
+  | HashGenesisCmdGenesisFileError !(FileError ())
   deriving Show
 
 instance Error HashCmdError where
@@ -45,6 +46,8 @@ instance Error HashCmdError where
       "Cannot read script at" <+> pretty filepath <> ":" <+> prettyError err
     HashFetchURLError fetchErr ->
       pretty (displayException fetchErr)
+    HashGenesisCmdGenesisFileError fe ->
+      prettyError fe
 
 data FetchURLError
   = FetchURLInvalidURLError !String

cardano-cli/test/cardano-cli-golden/files/golden/help.cli

@@ -10589,7 +10589,7 @@ Usage: cardano-cli latest transaction txid
 
   Print a transaction identifier.
 
-Usage: cardano-cli hash (anchor-data | script)
+Usage: cardano-cli hash (anchor-data | script | genesis-file)
 
   Compute the hash to pass to the various --*-hash arguments of commands.
 
@@ -10609,6 +10609,10 @@ Usage: cardano-cli hash script --script-file FILEPATH [--out-file FILEPATH]
 
   Compute the hash of a script (to then pass it to other commands).
 
+Usage: cardano-cli hash genesis-file --genesis FILEPATH
+
+  Compute the hash of a genesis file.
+
 Usage: cardano-cli ping [-c|--count COUNT]
                           ((-h|--host HOST) | (-u|--unixsock SOCKET))
                           [-p|--port PORT]

cardano-cli/test/cardano-cli-golden/files/golden/help/hash.cli

@@ -1,4 +1,4 @@
-Usage: cardano-cli hash (anchor-data | script)
+Usage: cardano-cli hash (anchor-data | script | genesis-file)
 
   Compute the hash to pass to the various --*-hash arguments of commands.
 
@@ -10,3 +10,4 @@ Available commands:
                            to other commands).
   script                   Compute the hash of a script (to then pass it to
                            other commands).
+  genesis-file             Compute the hash of a genesis file.

cardano-cli/test/cardano-cli-golden/files/golden/help/hash_genesis-file.cli

@@ -0,0 +1,7 @@
+Usage: cardano-cli hash genesis-file --genesis FILEPATH
+
+  Compute the hash of a genesis file.
+
+Available options:
+  --genesis FILEPATH       The genesis file.
+  -h,--help                Show this help text