From 6abcea012a67ab6b4eafc3401b0e1ca6a368e21a Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Sun, 29 Aug 2021 17:35:49 +0100
Subject: Promise then_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 7e3670a..8407c8c 100644
--- a/src/gleam/javascript/promise.gleam
+++ b/src/gleam/javascript/promise.gleam
@@ -31,3 +31,16 @@ pub fn map_try(
     }
   })
 }
+
+pub fn then_try(
+  promise: Promise(Result(a, e)),
+  callback: fn(a) -> Promise(Result(b, e)),
+) -> Promise(Result(b, e)) {
+  promise
+  |> then(fn(result) {
+    case result {
+      Ok(a) -> callback(a)
+      Error(e) -> resolve(Error(e))
+    }
+  })
+}
-- 
cgit v1.2.3