Added Fable flags

Author: 1eyewonder

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

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
     ]