From c6c3e98c1d470345dd9b87b32fe7f88130f03f00 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Adri=C3=A1n=20Montesinos=20Gonz=C3=A1lez?=
 <amontesinosgonz@gmail.com>
Date: Mon, 21 Oct 2024 21:37:09 +0200
Subject: [PATCH] Modify task extensions to support backgroundTask

Modifies the extensions to TaskBuilder to extend TaskBuilderBase
instead, so they apply to both the task and backgroundTask builders.
---
 src/FSharp.Control.TaskSeq/TaskExtensions.fs  | 4 ++--
 src/FSharp.Control.TaskSeq/TaskExtensions.fsi | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/FSharp.Control.TaskSeq/TaskExtensions.fs b/src/FSharp.Control.TaskSeq/TaskExtensions.fs
index 63a72d9..a811e8a 100644
--- a/src/FSharp.Control.TaskSeq/TaskExtensions.fs
+++ b/src/FSharp.Control.TaskSeq/TaskExtensions.fs
@@ -14,8 +14,8 @@ open Microsoft.FSharp.Core.LanguagePrimitives.IntrinsicOperators
 [<AutoOpen>]
 module TaskExtensions =
 
-    // Add asynchronous for loop to the 'task' computation builder
-    type Microsoft.FSharp.Control.TaskBuilder with
+    // Add asynchronous for loop to the 'task' and 'backgroundTask' computation builders
+    type TaskBuilderBase with
 
         /// Used by `For`. F# currently doesn't support `while!`, so this cannot be called directly from the task CE
         /// This code is mostly a copy of TaskSeq.WhileAsync.
diff --git a/src/FSharp.Control.TaskSeq/TaskExtensions.fsi b/src/FSharp.Control.TaskSeq/TaskExtensions.fsi
index c99c676..c723ee9 100644
--- a/src/FSharp.Control.TaskSeq/TaskExtensions.fsi
+++ b/src/FSharp.Control.TaskSeq/TaskExtensions.fsi
@@ -5,7 +5,7 @@ namespace FSharp.Control
 [<AutoOpen>]
 module TaskExtensions =
 
-    type TaskBuilder with
+    type TaskBuilderBase with
 
         /// <summary>
         /// Inside <see cref="task" />, iterate over all values of a <see cref="taskSeq" />.