From cf7831f278423bab72f5d9433771e5a16ce44cac Mon Sep 17 00:00:00 2001
From: Brett Snyder <bsnyder@digitalocean.com>
Date: Wed, 2 Oct 2019 10:49:43 -0500
Subject: add pair:map_first and pair:map_second

---
 src/gleam/pair.gleam | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src')

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))
+}
-- 
cgit v1.2.3