From a1673d56037079af68b40459ba29f8362f7ece1f Mon Sep 17 00:00:00 2001 From: Martin Kourim Date: Fri, 23 Feb 2024 00:06:15 +0100 Subject: [PATCH] Add missing newlines to `cardano-cli query utxo` output Text output is missing newlines after title line and underline. Fixes https://github.com/IntersectMBO/cardano-cli/issues/619 --- cardano-cli/src/Cardano/CLI/EraBased/Run/Query.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Query.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Query.hs index 28e79f04d4..9a8a883d22 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Query.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Query.hs @@ -1034,8 +1034,7 @@ writeFilteredUTxOs sbe format mOutFile utxo = filteredUTxOsToText :: Api.ShelleyBasedEra era -> UTxO era -> Text filteredUTxOsToText sbe (UTxO utxo) = do mconcat - [ title - , Text.replicate (Text.length title + 2) "-" + [ Text.unlines [title, Text.replicate (Text.length title + 2) "-"] , Text.unlines $ case sbe of ShelleyBasedEraShelley -> map (utxoToText sbe) $ Map.toList utxo