Skip to content

Commit dbe20bf

Browse files
palascarbolymer
andauthored
Replace forM_ with mapM
Co-authored-by: Mateusz Galazyn <[email protected]>
1 parent ca3eee5 commit dbe20bf

File tree

1 file changed

+1
-5
lines changed
  • cardano-cli/src/Cardano/CLI/EraBased/Transaction

1 file changed

+1
-5
lines changed

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

Lines changed: 1 addition & 5 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) ->
47+
( mapM $\(L.VotingProcedure _ mAnchor) ->
5148
forM_ mAnchor checkAnchorMetadataHash
52-
)
5349
)
5450

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

0 commit comments

Comments
 (0)