commit 7636c276a255919d25688a5590149b56912ea2fc · kitten.sh/wonka

src/web/wonkaJs.re

···

       124
       124
        
                   | Close when !state.ended =>

     

       125
       125
        
                     state.ended = true;

     

       126
       126
        
                     state.talkback(. Close);

     

       127
       127
       +
                   | Close => ()

     

       127
       128
        
                   | Pull when !state.ended => state.talkback(. Pull)

     

       128
       129
        
                   | Pull => ()

     

       129
       130
        
                   },

+4 -6

src/wonka_operators.re

···

       71
       71
        
                       state.ended = true;

     

       72
       72
        
                       state.sourceTalkback(. Close);

     

       73
       73
        
                       state.notifierTalkback(. Close);

     

       74
       74
       -
                     | Pull =>

     

       75
       75
       -
                       if (!state.pulled) {

     

       76
       76
       -
                         state.pulled = true;

     

       77
       77
       -
                         state.sourceTalkback(. Pull);

     

       78
       78
       -
                         state.notifierTalkback(. Pull);

     

       79
       79
       -
                       }

     

       74
       74
       +
                     | Pull when !state.pulled =>

     

       75
       75
       +
                       state.pulled = true;

     

       76
       76
       +
                       state.sourceTalkback(. Pull);

     

       77
       77
       +
                       state.notifierTalkback(. Pull);

     

       80
       78
        
                     | Pull => ()

     

       81
       79
        
                     };

     

       82
       80
        
                   },