From c06bd28d9a5e5a80d95716815ffb0698ec61357a Mon Sep 17 00:00:00 2001 From: "Niels G. W. Serup" Date: Sat, 5 Oct 2024 20:20:16 +0200 Subject: [PATCH] Fix accidental argument swap --- byg/src/DependencyGenerator.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/byg/src/DependencyGenerator.hs b/byg/src/DependencyGenerator.hs index d1e1cb3..5522f8e 100644 --- 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)]