Add function to call a function with a cross-product of lists of arguments

Signed-off-by: Shea Levy <shea@shealevy.com>

1 files changed, 6 insertions, 0 deletions

diff --git a/lib/lists.nix b/lib/lists.nix
index d6e8628f03a1..561a657264bb 100644
--- a/lib/lists.nix
+++ b/lib/lists.nix
@@ -225,4 +225,10 @@ in rec {
 
   deepSeqList = xs: y: if any (x: deepSeq x false) xs then y else y;
 
+  crossLists = f: xss:
+    let
+      argss = fold (l: argss:
+        concatMap (arg: map (args: [ arg ] ++ args) argss) l
+      ) [[]] xss;
+    in map (args: foldl (f: arg: f arg) f args) argss;
 }