src/sources/wonka_source_fromList.re at v3.2.2 · kitten.sh/wonka

kitten.sh / wonka

Mirror: 🎩 A tiny but capable push & pull stream library for TypeScript and Flow

wonka / src / sources / wonka_source_fromList.re

at v3.2.2 264 B view raw

 1open Wonka_types;
 2open Wonka_helpers;
 3
 4let fromList = ls =>
 5  curry(sink => {
 6    let value = ref(ls);
 7
 8    makeTrampoline(sink, (.) =>
 9      switch (value^) {
10      | [x, ...rest] =>
11        value := rest;
12        Some(x);
13      | [] => None
14      }
15    );
16  });