Simplify crossLists

Signed-off-by: Shea Levy <shea@shealevy.com>
2013-12-12 14:01:48 -05:00 · 2013-12-12 14:01:48 -05:00 · 3c5971692a
commit 3c5971692a
parent a42508a8ba
1 changed files with 1 additions and 6 deletions
--- a/lib/lists.nix
+++ b/lib/lists.nix
@ -225,10 +225,5 @@ 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;
+  crossLists = f: foldl (fs: args: concatMap (f: map f args) fs) [f];
 }