diff options
| -rw-r--r-- | stdlib/source/lux/data/product.lux | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/stdlib/source/lux/data/product.lux b/stdlib/source/lux/data/product.lux index fe31c2020..d38350929 100644 --- a/stdlib/source/lux/data/product.lux +++ b/stdlib/source/lux/data/product.lux @@ -31,7 +31,8 @@ [y x])) (def: #export (both f g) - (All [a b c] (-> (-> a b) (-> a c) - (-> a [b c]))) - (function [input] - [(f input) (g input)])) + (All [a b c d] + (-> (-> a c) (-> b d) + (-> [a b] [c d]))) + (function [[x y]] + [(f x) (g y)])) |