#IF NET45 ...

fsprojects · Nov 11, 2024 · 617c009 · 617c009
1 parent 90ec780
commit 617c009
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/src/FSharpPlus/Control/Functor.fs b/src/FSharpPlus/Control/Functor.fs
@@ -41,7 +41,14 @@ type Iterate =
     #else
     static member Iterate (x: Async<'T>            , action: 'T -> unit) = (x |> Async.map action |> Async.AsTask).Wait ()
     #endif
-    static member Iterate (x: Result<'T, 'E>       , action) = Result.iter action x
+    static member Iterate (x: Result<'T, 'E>       , action) =
+    #if !NET45
+        Result.iter action x
+    #else
+        match x with
+        | Error _ -> ()
+        | Ok value -> action value
+    #endif
     static member Iterate (x: Choice<'T, 'E>       , action) = match x with Choice1Of2 x -> action x | _ -> ()
     static member Iterate (KeyValue(_: 'Key, x: 'T), action) = action x : unit
     static member Iterate (x: Map<'Key,'T>         , action) = Map.iter (const' action) x 

diff --git a/src/FSharpPlus/Extensions/ResizeArray.fs b/src/FSharpPlus/Extensions/ResizeArray.fs
@@ -27,7 +27,9 @@ module ResizeArray =
     /// <param name="action">The function to apply to elements from the input ResizeArray.</param>
     /// <param name="source">The input ResizeArray.</param>
     let iter (action: 'T -> 'U) (source: ResizeArray<'T>) =
+        #if !NET45
         raiseIfNull (nameof source) source
+        #endif
 
         ResizeArray (Seq.map action source)