From 26e2aa74c442333de2e40029fb79ac1bc4f04532 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Cl=C3=A9ment=20Hurlin?= Date: Tue, 9 Jan 2024 10:20:22 +0100 Subject: [PATCH] Detail: remove some dead code --- .../Cardano/CLI/EraBased/Options/Common.hs | 19 ------------------- 1 file changed, 19 deletions(-) diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Options/Common.hs b/cardano-cli/src/Cardano/CLI/EraBased/Options/Common.hs index a1165f0ba5..f67dc00ded 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Options/Common.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Options/Common.hs @@ -3115,25 +3115,6 @@ pDRepVerificationKeyOrHashOrFile = , VerificationKeyHash <$> pDRepVerificationKeyHash ] -pCombinedDRepVerificationKeyOrHashOrFile - :: Parser (VerificationKeyOrHashOrFile DRepKey) -pCombinedDRepVerificationKeyOrHashOrFile = - asum - [ VerificationKeyOrFile <$> pCombinedDRepVerificationKeyOrFile - , VerificationKeyHash <$> pCombinedDRepVerificationKeyHash - ] - -pCombinedDRepVerificationKeyHash :: Parser (Hash DRepKey) -pCombinedDRepVerificationKeyHash = - Opt.option (pBech32KeyHash AsDRepKey <|> pHexHash AsDRepKey) $ mconcat - [ Opt.long "combined-drep-key-hash" - , Opt.metavar "HASH" - , Opt.help $ mconcat - [ "DRep verification key hash (either Bech32-encoded or hex-encoded). " - , "Zero or more occurences of this option is allowed." - ] - ] - pCombinedDRepVerificationKey :: Parser (VerificationKey DRepKey) pCombinedDRepVerificationKey = Opt.option (readVerificationKey AsDRepKey) $ mconcat