From 01a691b6e7df1834b1f75e07617a209770c48fbf Mon Sep 17 00:00:00 2001
From: Alice Dee <alice.dee@guardian.co.uk>
Date: Tue, 17 Sep 2019 12:45:44 +0100
Subject: Move fetch to list module as key_find

---
 src/gleam/list.gleam | 9 +++++++++
 src/gleam/pair.gleam | 9 ---------
 2 files changed, 9 insertions(+), 9 deletions(-)

(limited to 'src')

diff --git a/src/gleam/list.gleam b/src/gleam/list.gleam
index e0e7016..ed63a4b 100644
--- a/src/gleam/list.gleam
+++ b/src/gleam/list.gleam
@@ -312,3 +312,12 @@ fn do_split_while(list, f, acc) {
 pub fn split_while(list, f) {
   do_split_while(list, f, [])
 }
+
+pub fn key_find(haystack, needle) {
+  find(haystack, fn(p) {
+    case pair.first(p) == needle {
+    | True -> p |> pair.second |> Ok
+    | False -> Error(Nil)
+    }
+  })
+}
diff --git a/src/gleam/pair.gleam b/src/gleam/pair.gleam
index 7df33ca..0a51fd3 100644
--- a/src/gleam/pair.gleam
+++ b/src/gleam/pair.gleam
@@ -19,12 +19,3 @@ pub fn swap(tup) {
   let Pair(a, b) = tup
   Pair(b, a)
 }
-
-// pub fn fetch(haystack, needle) {
-//   list.find(haystack, fn(tuple) {
-//     case first(tuple) == needle {
-//     | True -> tuple |> second |> Ok
-//     | False -> Error([])
-//     }
-//   })
-// }
-- 
cgit v1.2.3