Fix accidental argument swap

2024-10-05 20:20:16 +02:00
parent 7504c083a1
commit c06bd28d9a
1 changed files with 1 additions and 1 deletions
--- a/byg/src/DependencyGenerator.hs
+++ b/byg/src/DependencyGenerator.hs
@@ -129,7 +129,7 @@ mapDepGenM_ f input = do

 filterDepGenM :: (TokenableTo [Bool] v, TokenableTo [a] u) => v -> u -> DepGenM' [a]
 filterDepGenM mask input = do
-  tup <- toTupleToken mask input
+  tup <- toTupleToken input mask
  genDependency (makeDependency tup FilterComp)

 zipDepGenM :: (TokenableTo [a] v, TokenableTo [b] u) => v -> u -> DepGenM' [(a, b)]