aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorBrett Snyder <bsnyder@digitalocean.com>2019-10-02 10:49:43 -0500
committerLouis Pilfold <louis@lpil.uk>2019-10-03 11:38:43 +0100
commitcf7831f278423bab72f5d9433771e5a16ce44cac (patch)
tree1dbbb96cd4f040c85a343dc7244365dcf87f1c30 /src
parent7677e9e96d38dffcf230891b7c74991aa7f16df5 (diff)
downloadgleam_stdlib-cf7831f278423bab72f5d9433771e5a16ce44cac.tar.gz
gleam_stdlib-cf7831f278423bab72f5d9433771e5a16ce44cac.zip
add pair:map_first and pair:map_second
Diffstat (limited to 'src')
-rw-r--r--src/gleam/pair.gleam10
1 files changed, 10 insertions, 0 deletions
diff --git a/src/gleam/pair.gleam b/src/gleam/pair.gleam
index 9074330..32fc6d1 100644
--- a/src/gleam/pair.gleam
+++ b/src/gleam/pair.gleam
@@ -17,3 +17,13 @@ pub fn swap(tup) {
let Pair(a, b) = tup
Pair(b, a)
}
+
+pub fn map_first(tup, f) {
+ let Pair(a, b) = tup
+ Pair(f(a), b)
+}
+
+pub fn map_second(tup, f) {
+ let Pair(a, b) = tup
+ Pair(a, f(b))
+}