From efc54b447788d325ec38222d3cb1ec5e98c1c030 Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Sun, 29 Aug 2021 15:23:52 +0100
Subject: Array fold_right

---
 src/ffi.js                       | 4 ++++
 src/gleam/javascript/array.gleam | 3 +++
 2 files changed, 7 insertions(+)

(limited to 'src')

diff --git a/src/ffi.js b/src/ffi.js
index 91a2f73..81362bb 100644
--- a/src/ffi.js
+++ b/src/ffi.js
@@ -13,3 +13,7 @@ export function length(thing) {
 export function reduce(thing, acc, fn) {
   return thing.reduce(fn, acc);
 }
+
+export function reduceRight(thing, acc, fn) {
+  return thing.reduceRight(fn, acc);
+}
diff --git a/src/gleam/javascript/array.gleam b/src/gleam/javascript/array.gleam
index 20d12d1..0895ff1 100644
--- a/src/gleam/javascript/array.gleam
+++ b/src/gleam/javascript/array.gleam
@@ -14,3 +14,6 @@ pub external fn map(Array(a), fn(a) -> b) -> Array(b) =
 
 pub external fn fold(Array(e), a, fn(a, e) -> a) -> a =
   "../../ffi.js" "reduce"
+
+pub external fn fold_right(Array(e), a, fn(a, e) -> a) -> a =
+  "../../ffi.js" "reduceRight"
-- 
cgit v1.2.3