Fixup WPF sample

Author: louthy

Samples/TestBed.WPF/MainWindow.xaml.cs

@@ -31,26 +31,26 @@ public MainWindow() : base(App.Runtime)
     /// Register the window events
     /// </summary>
     Eff<MinRT, Unit> startup =>
-        from _1 in tickIO.Fork()
-        from _2 in (onMouseMove | Proxy.repeat(showMousePos)).RunEffect().Fork()
+        from _1 in tickIO.ForkIO().As()
+        from _2 in (onMouseMove | Proxy.repeat(showMousePos)).RunEffect().ForkIO()
         select unit;
 
     /// <summary>
     /// Infinite loop that ticks every second
     /// </summary>
     Eff<MinRT, Unit> tickIO =>
         from _1 in modifyCount(x => x + 1)
-        from _2 in post(setContent(CounterButton, $"{count}"))
+        from _2 in postIO(setContent(CounterButton, $"{count}"))
         from _3 in waitFor(1)
         from _4 in tickIO           // tail(tickIO)
         select unit;
 
     Consumer<MouseEventArgs, Eff<MinRT>, Unit> showMousePos =>
         from e in Proxy.awaiting<MouseEventArgs>()
-        from _ in post(from p in getPosition(e)
-                       from x in setContent(CursorTextBoxX, $"X: {p.X:F0}")
-                       from y in setContent(CursorTextBoxY, $"Y: {p.Y:F0}")
-                       select unit)
+        from _ in postIO(from p in getPosition(e)
+                         from x in setContent(CursorTextBoxX, $"X: {p.X:F0}")
+                         from y in setContent(CursorTextBoxY, $"Y: {p.Y:F0}")
+                         select unit)
         select unit;
 
     /// <summary>
@@ -64,7 +64,7 @@ void ButtonOnClick(object? sender, RoutedEventArgs e) =>
     /// </summary>
     Eff<MinRT, Unit> buttonOnClickIO =>
         from _1 in resetCount
-        from _2 in post(setContent(CounterButton, $"{count}"))
+        from _2 in postIO(setContent(CounterButton, $"{count}"))
         select unit;
 
     /// <summary>

Samples/TestBed.WPF/WindowIO.cs

@@ -50,7 +50,7 @@ protected override void OnClosed(EventArgs e)
     /// Useful for wrapping IO event-handlers into a Task base event-handler
     /// </remarks>
     protected void handle<A>(Eff<RT, A> operation) =>
-        operation.Fork().Run(Runtime, EnvIO).ThrowIfFail();
+        operation.ForkIO().Run(Runtime, EnvIO).ThrowIfFail();
 
     /// <summary>
     /// Helper IO for setting control text 
@@ -84,5 +84,5 @@ from result in queue
     /// Async delay
     /// </summary>
     protected static Eff<RT, Unit> waitFor(double ms) =>
-        yield(ms);
+        yieldIO(ms);
 }