Modify query utxo command to print literal newline characters

IntersectMBO · Nov 30, 2021 · e22021e · e22021e
1 parent 54119c8
commit e22021e
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/Shelley/Run/Query.hs b/cardano-cli/src/Cardano/CLI/Shelley/Run/Query.hs
@@ -653,7 +653,7 @@ printUtxo shelleyBasedEra' txInOutTuple =
   case shelleyBasedEra' of
     ShelleyBasedEraShelley ->
       let (TxIn (TxId txhash) (TxIx index), TxOut _ value _) = txInOutTuple
-      in Text.putStrLn $
+      in print . Text.unpack $
            mconcat
              [ Text.decodeLatin1 (hashToBytesAsHex txhash)
              , textShowN 6 index
@@ -662,23 +662,23 @@ printUtxo shelleyBasedEra' txInOutTuple =
 
     ShelleyBasedEraAllegra ->
       let (TxIn (TxId txhash) (TxIx index), TxOut _ value _) = txInOutTuple
-      in Text.putStrLn $
+      in print . Text.unpack $
            mconcat
              [ Text.decodeLatin1 (hashToBytesAsHex txhash)
              , textShowN 6 index
              , "        " <> printableValue value
              ]
     ShelleyBasedEraMary ->
       let (TxIn (TxId txhash) (TxIx index), TxOut _ value _) = txInOutTuple
-      in Text.putStrLn $
+      in print . Text.unpack $
            mconcat
              [ Text.decodeLatin1 (hashToBytesAsHex txhash)
              , textShowN 6 index
              , "        " <> printableValue value
              ]
     ShelleyBasedEraAlonzo ->
       let (TxIn (TxId txhash) (TxIx index), TxOut _ value mDatum) = txInOutTuple
-      in Text.putStrLn $
+      in print . Text.unpack $
            mconcat
              [ Text.decodeLatin1 (hashToBytesAsHex txhash)
              , textShowN 6 index