Replace spaces in Doc with <+>

Co-authored-by: Mateusz Galazyn <[email protected]>
IntersectMBO · Sep 24, 2024 · eb1b59b · eb1b59b
1 parent caa04f9
commit eb1b59b
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 18 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceActionsError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceActionsError.hs
@@ -57,18 +57,18 @@ instance Error GovernanceActionsError where
     GovernanceActionsReadStakeCredErrror e ->
       prettyError e
     GovernanceActionsProposalMismatchedHashError adt expectedHash actualHash ->
-      "Hashes do not match while checking "
-        <> pretty (anchorDataTypeCheckName adt)
-        <> " hashes! \n"
-        <> "Expected: "
-        <> pretty (show (L.extractHash expectedHash))
-        <> "\n  Actual: "
-        <> pretty (show (L.extractHash actualHash))
+      "Hashes do not match while checking"
+        <+> pretty (anchorDataTypeCheckName adt)
+        <+> "hashes!"
+        <> "\nExpected:"
+          <+> pretty (show (L.extractHash expectedHash))
+        <> "\n  Actual:"
+          <+> pretty (show (L.extractHash actualHash))
     GovernanceActionsProposalFetchURLError adt fetchErr ->
-      "Error while checking "
-        <> pretty (anchorDataTypeCheckName adt)
-        <> " hash: "
-        <> pretty (displayException fetchErr)
+      "Error while checking"
+        <+> pretty (anchorDataTypeCheckName adt)
+        <+> "hash:"
+        <+> pretty (displayException fetchErr)
 
 data AnchorDataTypeCheck = ProposalCheck
   deriving Show

diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/HashCmdError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/HashCmdError.hs
@@ -32,17 +32,17 @@ data HashCmdError
 instance Error HashCmdError where
   prettyError = \case
     HashMismatchedHashError expectedHash actualHash ->
-      "Hashes do not match! \n"
-        <> "Expected: "
-        <> pretty (show (extractHash expectedHash))
-        <> "\n  Actual: "
-        <> pretty (show (extractHash actualHash))
+      "Hashes do not match!"
+        <> "\nExpected:"
+          <+> pretty (show (extractHash expectedHash))
+        <> "\n  Actual:"
+          <+> pretty (show (extractHash actualHash))
     HashReadFileError filepath exc ->
-      "Cannot read " <> pretty filepath <> ": " <> pretty (displayException exc)
+      "Cannot read" <+> pretty filepath <> ":" <+> pretty (displayException exc)
     HashWriteFileError fileErr ->
       prettyError fileErr
     HashReadScriptError filepath err ->
-      "Cannot read script at " <> pretty filepath <> ": " <> prettyError err
+      "Cannot read script at" <+> pretty filepath <> ":" <+> prettyError err
     HashFetchURLError fetchErr ->
       pretty (displayException fetchErr)