Fix from PR review and hlint

IntersectMBO · Dec 20, 2023 · 823d81a · 823d81a
1 parent 61880a9
commit 823d81a
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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 ->