Add missing newlines to cardano-cli query utxo output

Text output is missing newlines after title line and underline. Fixes #619
IntersectMBO · Feb 23, 2024 · a1673d5 · a1673d5
1 parent 615beb8
commit a1673d5
Showing 1 changed file with 1 addition and 2 deletions.
diff --git 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