From dbe20bf87f1c637e17c017d89b6074c528ca39f6 Mon Sep 17 00:00:00 2001
From: Pablo Lamela <pablo.lamela@iohk.io>
Date: Thu, 31 Oct 2024 14:51:23 +0100
Subject: [PATCH] Replace forM_ with mapM

Co-authored-by: Mateusz Galazyn <228866+carbolymer@users.noreply.github.com>
---
 .../src/Cardano/CLI/EraBased/Transaction/HashCheck.hs       | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Transaction/HashCheck.hs b/cardano-cli/src/Cardano/CLI/EraBased/Transaction/HashCheck.hs
index ed269e3aa3..f06d3c45ab 100644
--- a/cardano-cli/src/Cardano/CLI/EraBased/Transaction/HashCheck.hs
+++ b/cardano-cli/src/Cardano/CLI/EraBased/Transaction/HashCheck.hs
@@ -44,12 +44,8 @@ checkVotingProcedureHashes eon (Shelley.VotingProcedures (L.VotingProcedures vot
   Shelley.shelleyBasedEraConstraints eon $
     forM_
       voterMap
-      ( \vpMap ->
-          forM_
-            vpMap
-            ( \(L.VotingProcedure _ mAnchor) ->
+      ( mapM $\(L.VotingProcedure _ mAnchor) ->
                 forM_ mAnchor checkAnchorMetadataHash
-            )
       )
 
 -- | Find references to anchor data in proposals and check the hashes are valid