From 823d81a4cb4557c2ff87fcf55589ac53d30d934c Mon Sep 17 00:00:00 2001
From: Arnaud Bailly <arnaud.bailly@iohk.io>
Date: Wed, 20 Dec 2023 22:13:49 +0100
Subject: [PATCH] Fix from PR review and hlint

---
 cardano-cli/src/Cardano/CLI/Types/Errors/TxCmdError.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/TxCmdError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/TxCmdError.hs
index 96ff212a33..70493025b2 100644
--- a/cardano-cli/src/Cardano/CLI/Types/Errors/TxCmdError.hs
+++ b/cardano-cli/src/Cardano/CLI/Types/Errors/TxCmdError.hs
@@ -49,6 +49,8 @@ data TxCmdError
   | TxCmdNotImplemented !Text
   | TxCmdWitnessEraMismatch !AnyCardanoEra !AnyCardanoEra !WitnessFile
   | TxCmdPolicyIdsMissing ![PolicyId] ![PolicyId]
+    -- The first list is the missing policy Ids, the second list is the
+    -- policy Ids that were provided in the transaction.
   | TxCmdPolicyIdsExcess  ![PolicyId]
   | TxCmdByronEra
   | TxCmdBalanceTxBody !TxBodyErrorAutoBalance
@@ -136,9 +138,7 @@ renderTxCmdError = \case
     , "corresponding monetary policy script has been provided as a witness "
     , "(via the \"--mint-script-file\" flag). The policy Id in question is: "
     , prettyPolicyIdList missingPolicyIds
-    ] <> if (null knownPolicyIds)
-         then []
-         else [". Known policy Ids are: " <> prettyPolicyIdList knownPolicyIds ]
+    ] <> [". Known policy Ids are: " <> prettyPolicyIdList knownPolicyIds  | not (null knownPolicyIds) ]
 
 
   TxCmdPolicyIdsExcess policyids ->