Minor changes

Author: wallymathieu

src/FSharpPlus.CSharp/Library.fs

@@ -1,24 +1,15 @@
 namespace FSharpPlusCSharp
 open System.Runtime.CompilerServices
+open System.Runtime.InteropServices
 open System
 open System.Collections.Generic
 open FSharpPlus
 open FSharpPlus.Internals
-module internal Internals=
-    module Result=
-        /// Wraps a function, encapsulates any exception thrown within to a Result
-        let inline protect f x =
-            try
-                Ok (f x)
-            with e -> Error e
-        /// Attempts to cast an object.
-        /// Stores the cast value in Ok if successful, otherwise stores the exception in Error
-        let inline cast (o: obj) = protect unbox o
+open System.Globalization
 
+module internal Internals=
     let inline tupleToOption x = match x with true, value -> Some value | _ -> None
-
 open Internals
-open System.Globalization
 
 [<Extension>]
 type Options =
@@ -134,7 +125,7 @@ type Options =
     /// and then applies a mapping function
     [<Extension>]
     static member SelectMany (o, f: Func<_,_>, mapper: Func<_,_,_>) =
-      let mapper = liftA2 (curry mapper.Invoke)
+      let mapper = lift2 (curry mapper.Invoke)
       let v = Option.bind f.Invoke o
       mapper o v
 
@@ -210,7 +201,7 @@ type Results =
 
     /// Attempts to cast an object.
     /// Stores the cast value in Ok if successful, otherwise stores the exception in Error
-    static member Cast (o: obj) = Result.cast o
+    static member Cast (o: obj) = Result.protect unbox o
 
     [<Extension>]
     static member ToOption c = match c with | Ok a -> Some a | _ -> None
@@ -233,7 +224,7 @@ type Results =
 
     [<Extension>]
     static member SelectMany (o, f: Func<_,_>, mapper: Func<_,_,_>) =
-        let mapper = liftA2 (curry mapper.Invoke)
+        let mapper = lift2 (curry mapper.Invoke)
         let v = Result.bind f.Invoke o
         mapper o v