Fix fable

Author: TheAngryByrd

src/FsToolkit.ErrorHandling/OptionCE.fs

@@ -101,7 +101,7 @@ module OptionCE =
             /// Needed to allow `for..in` and `for..do` functionality
             /// </summary>
             // member inline _.Source(s: string) = ValueOption.ofObj s
-#if NET9_0_OR_GREATER
+#if NET9_0_OR_GREATER && !FABLE_COMPILER
 
             member inline _.Source(s: #seq<'value>) = ValueOption.ofObj s
 #else

src/FsToolkit.ErrorHandling/ValueOption.fs

@@ -1,6 +1,5 @@
 namespace FsToolkit.ErrorHandling
 
-#if !FABLE_COMPILER
 [<RequireQualifiedAccess>]
 module ValueOption =
 
@@ -147,5 +146,3 @@ module ValueOption =
         match input with
         | true, x -> ValueSome x
         | false, _ -> ValueNone
-
-#endif

tests/FsToolkit.ErrorHandling.Tests/OptionCE.fs

@@ -320,7 +320,7 @@ type CustomClass(x: int) =
     member _.getX = x
 
 
-#if NET9_0_OR_GREATER
+#if NET9_0_OR_GREATER && !FABLE_COMPILER
 
 type AB = A | B
 type AbNull = AB | null
@@ -336,7 +336,7 @@ let ``OptionCE inference checks`` =
 
             f (Some())
             |> ignore
-#if NET9_0_OR_GREATER
+#if NET9_0_OR_GREATER && !FABLE_COMPILER
         testCase "Nullable argument should be inferred" <| fun () ->
             // Compilation is real success
             let y (p : AbNull) =

tests/FsToolkit.ErrorHandling.Tests/ValueOptionCE.fs

@@ -325,7 +325,7 @@ type CustomClass(x: int) =
     member _.getX = x
 
 
-#if NET9_0_OR_GREATER
+#if NET9_0_OR_GREATER && !FABLE_COMPILER
 
 type AB = A | B
 type AbNull = AB | null
@@ -342,7 +342,7 @@ let ``ValueOptionCE inference checks`` =
 
             f (ValueSome())
             |> ignore
-#if NET9_0_OR_GREATER
+#if NET9_0_OR_GREATER && !FABLE_COMPILER
         testCase "Nullable argument should be inferred"
         <| fun () ->
             // Compilation is real success