From 6da602b0a29afcd2aa15725547375a80e30b3983 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Wed, 27 Nov 2024 02:12:12 +0100
Subject: initial commit

---
 src/wrapper.js | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 src/wrapper.js

(limited to 'src/wrapper.js')

diff --git a/src/wrapper.js b/src/wrapper.js
new file mode 100644
index 0000000..8ab8eac
--- /dev/null
+++ b/src/wrapper.js
@@ -0,0 +1,8 @@
+export const DO = (unit, bind) => f => {
+    const gen = f()
+    const next = acc => {
+        const {done, value} = gen.next(acc)
+        return done ? unit(value) : bind(value)(next)
+    }
+    return next()
+}
-- 
cgit v1.2.3