aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/gleam/list.gleam9
-rw-r--r--src/gleam/pair.gleam9
2 files changed, 9 insertions, 9 deletions
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([])
-// }
-// })
-// }