From 9f9631eca11ab711c3b5f88b29a0024caca8ea62 Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Sun, 29 Aug 2021 17:32:11 +0100
Subject: Promise map_try

---
 src/gleam/javascript/promise.gleam | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'src')

diff --git a/src/gleam/javascript/promise.gleam b/src/gleam/javascript/promise.gleam
index 2437dc0..7e3670a 100644
--- a/src/gleam/javascript/promise.gleam
+++ b/src/gleam/javascript/promise.gleam
@@ -18,3 +18,16 @@ pub fn tap(promise: Promise(a), callback: fn(a) -> b) -> Promise(a) {
     a
   })
 }
+
+pub fn map_try(
+  promise: Promise(Result(a, e)),
+  callback: fn(a) -> Result(b, e),
+) -> Promise(Result(b, e)) {
+  promise
+  |> map(fn(result) {
+    case result {
+      Ok(a) -> callback(a)
+      Error(e) -> Error(e)
+    }
+  })
+}
-- 
cgit v1.2.3