#ifdef out task support for Fable

Author: bartelink

src/FsToolkit.ErrorHandling/Seq.fs

@@ -167,6 +167,7 @@ let traverseAsyncResultM f xs =
 /// <remarks>This function is equivalent to <see cref="traverseAsyncResultM"/> but auto-applying the 'id' function</remarks>
 let sequenceAsyncResultM xs = traverseAsyncResultM id xs
 
+#if !FABLE_COMPILER
 /// <summary>
 /// Applies a function to each element of a sequence and returns a single Task result
 /// </summary>
@@ -220,6 +221,8 @@ let traverseTaskResultM f xs =
 /// <remarks>This function is equivalent to <see cref="traverseTaskResultM"/> but auto-applying the 'id' function</remarks>
 let sequenceTaskResultM xs = traverseTaskResultM id xs
 
+#endif
+
 /// <summary>
 /// Applies a function to each element of a sequence and returns a single async result
 /// </summary>

tests/FsToolkit.ErrorHandling.Tests/Seq.fs

@@ -353,6 +353,8 @@ let traverseAsyncResultMTests =
         }
     ]
 
+#if !FABLE_COMPILER
+
 let traverseTaskResultMTests =
 
     let notifyNewPostSuccess (PostId post) (UserId user) = TaskResult.ok (post, user)
@@ -397,6 +399,8 @@ let traverseTaskResultMTests =
         }
     ]
 
+#endif
+
 let traverseAsyncOptionMTests =
 
     let userIds =
@@ -527,6 +531,8 @@ let sequenceAsyncResultMTests =
         }
     ]
 
+#if !FABLE_COMPILER
+
 let sequenceTaskResultMTests =
     let notifyNewPostSuccess (PostId post) (UserId user) = TaskResult.ok (post, user)
 
@@ -580,6 +586,8 @@ let sequenceTaskResultMTests =
         }
     ]
 
+#endif
+
 let sequenceAsyncOptionMTests =
 
     let userIds =
@@ -782,11 +790,15 @@ let allTests =
         traverseResultATests
         sequenceResultATests
         traverseAsyncResultMTests
+#if !FABLE_COMPILER
         traverseTaskResultMTests
+#endif
         traverseAsyncOptionMTests
         traverseAsyncResultATests
         sequenceAsyncResultMTests
+#if !FABLE_COMPILER
         sequenceTaskResultMTests
+#endif
         sequenceAsyncOptionMTests
         sequenceAsyncResultATests
 #if !FABLE_COMPILER