Fix bugs in hot-credential init

IntersectMBO · May 6, 2024 · 44ed3f6 · 44ed3f6
1 parent daf645a
commit 44ed3f6
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 8 deletions.
diff --git a/credential-manager/orchestrator-cli/Commands.hs b/credential-manager/orchestrator-cli/Commands.hs
@@ -57,8 +57,8 @@ import Commands.UnlockCold (
  )
 import Commands.UnlockHot (
   UnlockHotCommand,
-  burnHotCommandParser,
   runUnlockHotCommand,
+  unlockHotCommandParser,
  )
 import Commands.Vote (VoteCommand, runVoteCommand, voteCommandParser)
 import Data.Foldable (Foldable (..))
@@ -167,7 +167,7 @@ hotNFTCommandParser = info parser description
           , command "vote" $ Vote <$> voteCommandParser
           , command "resignVoting" $ ResignVoting <$> resignVotingCommandParser
           , command "rotate" $ RotateHot <$> rotateHotCommandParser
-          , command "burn" $ UnlockHot <$> burnHotCommandParser
+          , command "unlock" $ UnlockHot <$> unlockHotCommandParser
           ]
 
 -- Implementations

diff --git a/credential-manager/orchestrator-cli/Commands/UnlockHot.hs b/credential-manager/orchestrator-cli/Commands/UnlockHot.hs
@@ -1,6 +1,6 @@
 module Commands.UnlockHot (
   UnlockHotCommand (..),
-  burnHotCommandParser,
+  unlockHotCommandParser,
   runUnlockHotCommand,
 ) where
 
@@ -23,8 +23,8 @@ newtype UnlockHotCommand = UnlockHotCommand
   { outDir :: FilePath
   }
 
-burnHotCommandParser :: ParserInfo UnlockHotCommand
-burnHotCommandParser = info parser description
+unlockHotCommandParser :: ParserInfo UnlockHotCommand
+unlockHotCommandParser = info parser description
   where
     description :: InfoMod UnlockHotCommand
     description = progDesc "Unlock the hot NFT."

diff --git a/credential-manager/orchestrator-cli/Commands/Vote.hs b/credential-manager/orchestrator-cli/Commands/Vote.hs
@@ -94,7 +94,7 @@ govActionIxParser :: Parser GovActionIx
 govActionIxParser =
   option readGovActionIx $
     fold
-      [ long "governance-action-tx-id"
+      [ long "governance-action-index"
       , metavar "WORD32"
       , help "Index of the governance action withing the transaction."
       ]

diff --git a/credential-manager/orchestrator/CredentialManager/Orchestrator/InitHotCommittee.hs b/credential-manager/orchestrator/CredentialManager/Orchestrator/InitHotCommittee.hs
@@ -11,7 +11,7 @@ import Cardano.Api (
  )
 import Cardano.Api.Shelley (hashScript)
 import CredentialManager.Orchestrator.Common (serialiseScript)
-import CredentialManager.Scripts (coldCommittee)
+import CredentialManager.Scripts (hotCommittee)
 import GHC.Generics (Generic)
 import PlutusLedgerApi.V3 (
   CurrencySymbol (CurrencySymbol),
@@ -37,7 +37,7 @@ initHotCommittee
 initHotCommittee InitHotCommitteeInputs{..} = do
   let script =
         serialiseScript
-          . coldCommittee
+          . hotCommittee
           . CurrencySymbol
           . toBuiltin
           $ serialiseToRawBytes nftPolicyId