Fix compilation error following rebase on master

input-output-hk · Oct 25, 2021 · b9cca24 · b9cca24
1 parent 8467f7c
commit b9cca24
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/local-cluster/src/CardanoClient.hs b/local-cluster/src/CardanoClient.hs
@@ -173,7 +173,7 @@ build networkId socket changeAddress txIns collateral txOuts = do
   eraHistory <- queryEraHistory networkId socket
   stakePools <- queryStakePools networkId socket
   utxo <- queryUtxoByTxIn networkId socket (map fst txIns)
-  either (throwIO . BuildException . show) (pure . extractBody) $
+  either (throwIO . BuildException) (pure . extractBody) $
     makeTransactionBodyAutoBalance
       AlonzoEraInCardanoMode
       systemStart
@@ -266,6 +266,7 @@ submit networkId socket tx =
 data CardanoClientException
   = QueryException Text
   | SubmitException Text
+  | BuildException TxBodyErrorAutoBalance
   deriving (Show)
 
 instance Exception CardanoClientException