wonka/lib/js/src/sources/wonka_source_make.js

A fast push & pull stream library for Reason, loosely following the [callbag spec](https://github.com/callbag/callbag)

'use strict';

var Block = require("bs-platform/lib/js/block.js");

function make(f) {
  return (function (sink) {
      var teardown = f(/* record */[
            /* next */(function (value) {
                return sink(/* Push */Block.__(1, [value]));
              }),
            /* complete */(function (param) {
                return sink(/* End */0);
              })
          ]);
      return sink(/* Start */Block.__(0, [(function (signal) {
                        if (signal) {
                          return teardown();
                        } else {
                          return /* () */0;
                        }
                      })]));
    });
}

exports.make = make;
/* No side effect */