Fix accidental argument swap

This commit is contained in:
Niels G. W. Serup 2024-10-05 20:20:16 +02:00
parent 7504c083a1
commit c06bd28d9a
No known key found for this signature in database
GPG Key ID: 38EEEBCE67324F19
1 changed files with 1 additions and 1 deletions

View File

@ -129,7 +129,7 @@ mapDepGenM_ f input = do
filterDepGenM :: (TokenableTo [Bool] v, TokenableTo [a] u) => v -> u -> DepGenM' [a] filterDepGenM :: (TokenableTo [Bool] v, TokenableTo [a] u) => v -> u -> DepGenM' [a]
filterDepGenM mask input = do filterDepGenM mask input = do
tup <- toTupleToken mask input tup <- toTupleToken input mask
genDependency (makeDependency tup FilterComp) genDependency (makeDependency tup FilterComp)
zipDepGenM :: (TokenableTo [a] v, TokenableTo [b] u) => v -> u -> DepGenM' [(a, b)] zipDepGenM :: (TokenableTo [a] v, TokenableTo [b] u) => v -> u -> DepGenM' [(a, b)]