···

       
1
       
1
       
 
       
open Wonka_types;

     

       
2
       
2
       
 
       


     

       
3
       
3
       
 
       
let make = f => curry(sink => {

     

       
4
       
4
       
-
       
  let teardown = f(.{

     

       
5
       
5
       
-
       
    next: value => sink(.Push(value)),

     

       
6
       
6
       
-
       
    complete: () => sink(.End)

     

       
7
       
7
       
-
       
  });

     

       
4
       
4
       
+
       
  let teardown = ref((.) => ());

     

       
8
       
5
       
 
       


     

       
9
       
6
       
 
       
  sink(.Start((.signal) => {

     

       
10
       
7
       
 
       
    switch (signal) {

     

       
11
       
11
       
-
       
    | Close => teardown(.)

     

       
8
       
8
       
+
       
    | Close => teardown^(.)

     

       
12
       
9
       
 
       
    | Pull => ()

     

       
13
       
10
       
 
       
    }

     

       
14
       
11
       
 
       
  }));

     

       
12
       
12
       
+
       


     

       
13
       
13
       
+
       
  teardown := f(.{

     

       
14
       
14
       
+
       
    next: value => sink(.Push(value)),

     

       
15
       
15
       
+
       
    complete: () => sink(.End)

     

       
16
       
16
       
+
       
  });

     

       
15
       
17
       
 
       
});