Fix compilation errors

IntersectMBO · May 28, 2024 · 8ba844d · 8ba844d
1 parent b08f10c
commit 8ba844d
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 4 deletions.
diff --git a/cabal.project b/cabal.project
@@ -19,6 +19,13 @@ index-state:
 packages:
   cardano-cli
 
+source-repository-package
+  type: git
+  location: https://github.com/IntersectMBO/cardano-api.git
+  tag: 1244e702287daedbde0cffa320d1eb423493321e
+  subdir: cardano-api
+  --sha256: 1wjhyliq3qv83m956mvinshd8cbrkyjlcx97s34qxi9cilskn210
+
 program-options
   ghc-options: -Werror
 

diff --git a/cardano-cli/src/Cardano/CLI/Byron/Run.hs b/cardano-cli/src/Cardano/CLI/Byron/Run.hs
@@ -192,7 +192,7 @@ runSpendGenesisUTxO genesisFile nw bKeyFormat (NewTxFile ctTx) ctKey genRichAddr
 
     let tx = txSpendGenesisUTxOByronPBFT genesis nw sk genRichAddr outs
     firstExceptT ByronCmdHelpersError . ensureNewFileLBS ctTx
-      $ teCddlRawCBOR $ serializeByronTx tx
+      $ teRawCBOR $ serializeByronTx tx
 
 -- Construct a Byron era tx
 runSpendUTxO
@@ -208,4 +208,4 @@ runSpendUTxO nw bKeyFormat (NewTxFile ctTx) ctKey ins outs = do
 
     let gTx = txSpendUTxOByronPBFT nw sk ins outs
     firstExceptT ByronCmdHelpersError . ensureNewFileLBS ctTx
-      $ teCddlRawCBOR $ serializeByronTx gTx
+      $ teRawCBOR $ serializeByronTx gTx
diff --git a/cardano-cli/src/Cardano/CLI/Read.hs b/cardano-cli/src/Cardano/CLI/Read.hs
@@ -1026,7 +1026,7 @@ readFileOrPipeTextEnvelopeAnyOf types file = do
         deserialiseFromTextEnvelopeAnyOf types te
 
 readFileOrPipeTextEnvelopeCddlAnyOf
-  :: [FromSomeTypeCDDL TextEnvelopeCddl b]
+  :: [FromSomeTypeCDDL TextEnvelope b]
   -> FileOrPipe
   -> IO (Either (FileError TextEnvelopeCddlError) b)
 readFileOrPipeTextEnvelopeCddlAnyOf types file = do
@@ -1038,7 +1038,7 @@ readFileOrPipeTextEnvelopeCddlAnyOf types file = do
 
 readTextEnvelopeCddlFromFileOrPipe
   :: FileOrPipe
-  -> IO (Either (FileError TextEnvelopeCddlError) TextEnvelopeCddl)
+  -> IO (Either (FileError TextEnvelopeCddlError) TextEnvelope)
 readTextEnvelopeCddlFromFileOrPipe file = do
   let path = fileOrPipePath file
   runExceptT $ do