Added Fable flags

demystifyfp · Nov 10, 2023 · 5e1f728 · 5e1f728
1 parent d716266
commit 5e1f728
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/src/FsToolkit.ErrorHandling/List.fs b/src/FsToolkit.ErrorHandling/List.fs
@@ -164,6 +164,7 @@ module List =
 
     let sequenceAsyncOptionM xs = traverseAsyncOptionM id xs
 
+#if !FABLE_COMPILER
     let rec private traverseVOptionM' (state: voption<_>) (f: _ -> voption<_>) xs =
         match xs with
         | [] ->
@@ -184,3 +185,5 @@ module List =
     let traverseVOptionM f xs = traverseVOptionM' (ValueSome []) f xs
 
     let sequenceVOptionM xs = traverseVOptionM id xs
+
+#endif
diff --git a/tests/FsToolkit.ErrorHandling.Tests/List.fs b/tests/FsToolkit.ErrorHandling.Tests/List.fs
@@ -547,6 +547,7 @@ let sequenceAsyncResultATests =
         }
     ]
 
+#if !FABLE_COMPILER
 let traverseVOptionMTests =
     testList "List.traverseVOptionM Tests" [
         let tryTweetVOption x =
@@ -611,6 +612,8 @@ let sequenceVOptionMTests =
             Expect.equal actual ValueNone "traverse the list and return value none"
     ]
 
+#endif
+
 let allTests =
     testList "List Tests" [
         traverseResultMTests
@@ -627,6 +630,8 @@ let allTests =
         sequenceAsyncResultMTests
         sequenceAsyncOptionMTests
         sequenceAsyncResultATests
+#if !FABLE_COMPILER
         traverseVOptionMTests
         sequenceVOptionMTests
+#endif
     ]