From 33782033e58bc2c0a054b45fb60d1cbaec7962ae Mon Sep 17 00:00:00 2001 From: Pablo Lamela Date: Tue, 24 Sep 2024 01:13:18 +0200 Subject: [PATCH] Improve error message --- cardano-cli/src/Cardano/CLI/Run/Hash.hs | 7 ++++++- .../src/Cardano/CLI/Types/Errors/GovernanceActionsError.hs | 2 +- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/cardano-cli/src/Cardano/CLI/Run/Hash.hs b/cardano-cli/src/Cardano/CLI/Run/Hash.hs index bddad7edb3..4add99eab0 100644 --- a/cardano-cli/src/Cardano/CLI/Run/Hash.hs +++ b/cardano-cli/src/Cardano/CLI/Run/Hash.hs @@ -29,6 +29,7 @@ import Control.Monad.Catch (Exception, Handler (Handler)) import qualified Data.ByteString as BS import qualified Data.ByteString.Char8 as BS8 import qualified Data.ByteString.Lazy as BSL +import qualified Data.ByteString.Lazy.Char8 as BSL8 import Data.Char (toLower) import Data.Function import Data.List (intercalate) @@ -129,7 +130,11 @@ getByteStringFromURL supportedSchemas urlText = do response <- httpLbs request manager let status = responseStatus response if statusCode status /= 200 - then throw $ BadStatusCodeHRE (statusCode status) (BS8.unpack $ statusMessage status) + then + throw $ + BadStatusCodeHRE + (statusCode status) + (BS8.unpack (statusMessage status) ++ ": " ++ BSL8.unpack (responseBody response)) else return $ BS.concat . BSL.toChunks $ responseBody response handlers :: [Handler IO FetchURLError] diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceActionsError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceActionsError.hs index de6be51849..65de0de055 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceActionsError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceActionsError.hs @@ -67,7 +67,7 @@ instance Error GovernanceActionsError where GovernanceActionsProposalFetchURLError adt fetchErr -> "Error while checking " <> pretty (anchorDataTypeCheckName adt) - <> " hash:" + <> " hash: " <> pretty (displayException fetchErr) data AnchorDataTypeCheck = ProposalCheck