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

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

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;
 }