···

       
202
       
202
       
 
       
        ended: false,

     

       
203
       
203
       
 
       
      };

     

       
204
       
204
       
 
       


     

       
205
       
205
       
-
       
      let rec applyInnerSource = innerSource =>

     

       
205
       
205
       
+
       
      let rec applyInnerSource = innerSource => {

     

       
206
       
206
       
+
       
        state.innerActive = true;

     

       
206
       
207
       
 
       
        innerSource((. signal) =>

     

       
207
       
208
       
 
       
          switch (signal) {

     

       
208
       
209
       
 
       
          | Start(tb) =>

     

       
209
       
209
       
-
       
            state.innerActive = true;

     

       
210
       
210
       
 
       
            state.innerTalkback = tb;

     

       
211
       
211
       
 
       
            state.innerPulled = false;

     

       
212
       
212
       
 
       
            tb(. Pull);

     
···

       
231
       
231
       
 
       
          | End => ()

     

       
232
       
232
       
 
       
          }

     

       
233
       
233
       
 
       
        );

     

       
234
       
234
       
+
       
      };

     

       
234
       
235
       
 
       


     

       
235
       
236
       
 
       
      source((. signal) =>

     

       
236
       
237
       
 
       
        switch (signal) {

     
···

       
822
       
823
       
 
       
        ended: false,

     

       
823
       
824
       
 
       
      };

     

       
824
       
825
       
 
       


     

       
825
       
825
       
-
       
      let applyInnerSource = innerSource =>

     

       
826
       
826
       
+
       
      let applyInnerSource = innerSource => {

     

       
827
       
827
       
+
       
        state.innerActive = true;

     

       
826
       
828
       
 
       
        innerSource((. signal) =>

     

       
827
       
827
       
-
       
          switch (signal) {

     

       
828
       
828
       
-
       
          | Start(tb) =>

     

       
829
       
829
       
-
       
            state.innerActive = true;

     

       
830
       
830
       
-
       
            state.innerTalkback = tb;

     

       
831
       
831
       
-
       
            state.innerPulled = false;

     

       
832
       
832
       
-
       
            tb(. Pull);

     

       
833
       
833
       
-
       
          | Push(_) when state.innerActive =>

     

       
834
       
834
       
-
       
            sink(. signal);

     

       
835
       
835
       
-
       
            if (!state.innerPulled) {

     

       
836
       
836
       
-
       
              state.innerTalkback(. Pull);

     

       
837
       
837
       
-
       
            } else {

     

       
829
       
829
       
+
       
          if (state.innerActive) {

     

       
830
       
830
       
+
       
            switch (signal) {

     

       
831
       
831
       
+
       
            | Start(tb) =>

     

       
832
       
832
       
+
       
              state.innerTalkback = tb;

     

       
838
       
833
       
 
       
              state.innerPulled = false;

     

       
839
       
839
       
-
       
            };

     

       
840
       
840
       
-
       
          | Push(_) => ()

     

       
841
       
841
       
-
       
          | End when state.innerActive =>

     

       
842
       
842
       
-
       
            state.innerActive = false;

     

       
843
       
843
       
-
       
            if (state.ended) {

     

       
834
       
834
       
+
       
              tb(. Pull);

     

       
835
       
835
       
+
       
            | Push(_) =>

     

       
844
       
836
       
 
       
              sink(. signal);

     

       
845
       
845
       
-
       
            } else if (!state.outerPulled) {

     

       
846
       
846
       
-
       
              state.outerPulled = true;

     

       
847
       
847
       
-
       
              state.outerTalkback(. Pull);

     

       
837
       
837
       
+
       
              if (!state.innerPulled) {

     

       
838
       
838
       
+
       
                state.innerTalkback(. Pull);

     

       
839
       
839
       
+
       
              } else {

     

       
840
       
840
       
+
       
                state.innerPulled = false;

     

       
841
       
841
       
+
       
              };

     

       
842
       
842
       
+
       
            | End =>

     

       
843
       
843
       
+
       
              state.innerActive = false;

     

       
844
       
844
       
+
       
              if (state.ended) {

     

       
845
       
845
       
+
       
                sink(. signal);

     

       
846
       
846
       
+
       
              } else if (!state.outerPulled) {

     

       
847
       
847
       
+
       
                state.outerPulled = true;

     

       
848
       
848
       
+
       
                state.outerTalkback(. Pull);

     

       
849
       
849
       
+
       
              };

     

       
848
       
850
       
 
       
            };

     

       
849
       
849
       
-
       
          | End => ()

     

       
850
       
851
       
 
       
          }

     

       
851
       
852
       
 
       
        );

     

       
853
       
853
       
+
       
      };

     

       
852
       
854
       
 
       


     

       
853
       
855
       
 
       
      source((. signal) =>

     

       
854
       
856
       
 
       
        switch (signal) {