Skip to content

Commit 6d4ba3b

Browse files
palascarbolymer
andcommitted
Replace forM_ with mapM
Co-authored-by: Mateusz Galazyn <[email protected]>
1 parent c5a74fe commit 6d4ba3b

File tree

1 file changed

+2
-6
lines changed
  • cardano-cli/src/Cardano/CLI/EraBased/Transaction

1 file changed

+2
-6
lines changed

cardano-cli/src/Cardano/CLI/EraBased/Transaction/HashCheck.hs

Lines changed: 2 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -44,12 +44,8 @@ checkVotingProcedureHashes eon (Shelley.VotingProcedures (L.VotingProcedures vot
4444
Shelley.shelleyBasedEraConstraints eon $
4545
forM_
4646
voterMap
47-
( \vpMap ->
48-
forM_
49-
vpMap
50-
( \(L.VotingProcedure _ mAnchor) ->
51-
forM_ mAnchor checkAnchorMetadataHash
52-
)
47+
( mapM $ \(L.VotingProcedure _ mAnchor) ->
48+
forM_ mAnchor checkAnchorMetadataHash
5349
)
5450

5551
-- | Find references to anchor data in proposals and check the hashes are valid

0 commit comments

Comments
 (0)