Replace forM_ with mapM

Co-authored-by: Mateusz Galazyn <228866+carbolymer@users.noreply.github.com>
IntersectMBO · Nov 14, 2024 · 6d4ba3b · 6d4ba3b
1 parent c5a74fe
commit 6d4ba3b
Showing 1 changed file with 2 additions and 6 deletions.
diff --git 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) ->
-                forM_ mAnchor checkAnchorMetadataHash
-            )
+      ( mapM $ \(L.VotingProcedure _ mAnchor) ->
+          forM_ mAnchor checkAnchorMetadataHash
       )
 
 -- | Find references to anchor data in proposals and check the hashes are valid