toNullable

toNullable.fs

let toNullable x : System.Nullable<_> = 
   match x with 
   | Some v -> System.Nullable<_>(v)
   | _ -> System.Nullable()

// Extension for use from F#
type Option<'t> with
    member this.ToNullable () =
        toNullable (box this |> unbox)

// Extension for use from C#
[<System.Runtime.CompilerServices.Extension>]
module ExtensionMethods =
    [<System.Runtime.CompilerServices.Extension>]
    let ToNullable(o : Option<'t>) : Nullable<'t> = toNullable (box o |> unbox)