Merge pull request #669 from IntersectMBO/smelc/disambiguate-text-bin…

…ary-in-proposal-newtype proposal: disambiguate binary data from text data
IntersectMBO · Mar 22, 2024 · 6dc843c · 6dc843c
2 parents e37a31a + e48024b
commit 6dc843c
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Commands/Governance/Hash.hs b/cardano-cli/src/Cardano/CLI/EraBased/Commands/Governance/Hash.hs
@@ -29,7 +29,7 @@ data GovernanceHashAnchorDataCmdArgs era
   } deriving Show
 
 data GovernanceAnchorDataHashSource
-  = GovernanceAnchorDataHashSourceBinaryFile (File ProposalText In)
+  = GovernanceAnchorDataHashSourceBinaryFile (File ProposalBinary In)
   | GovernanceAnchorDataHashSourceTextFile (File ProposalText In)
   | GovernanceAnchorDataHashSourceText Text
   deriving Show

diff --git a/cardano-cli/src/Cardano/CLI/Types/Common.hs b/cardano-cli/src/Cardano/CLI/Types/Common.hs
@@ -42,6 +42,7 @@ module Cardano.CLI.Types.Common
   , ParserFileDirection (..)
   , IdOutputFormat (..)
   , PrivKeyFile(..)
+  , ProposalBinary(..)
   , ProposalFile
   , ProposalText(..)
   , ProposalUrl(..)
@@ -91,6 +92,7 @@ import qualified Cardano.Chain.Slotting as Byron
 
 import           Data.Aeson (FromJSON (..), ToJSON (..), object, pairs, (.=))
 import qualified Data.Aeson as Aeson
+import qualified Data.ByteString as BS
 import           Data.String (IsString)
 import           Data.Text (Text)
 import qualified Data.Text as Text
@@ -122,6 +124,10 @@ newtype ProposalUrl = ProposalUrl
   { unProposalUrl :: L.Url
   } deriving (Eq, Show)
 
+newtype ProposalBinary = ProposalBinary
+  { unProposalBinary :: BS.ByteString
+  } deriving (Eq, Show)
+
 newtype ProposalText = ProposalText
   { unProposalText :: Text
   } deriving (Eq, Show)