F# Ignore Explicity

Ignores.fs

[<AutoOpen>]
module Ignore =

    [<RequiresExplicitTypeArguments>]
    let inline ignore<'a> (x: 'a) : unit = ignore<'a> x

    type Async with
        [<RequiresExplicitTypeArguments>]
        static member inline Ignore<'a>(x: Async<'a>) : Async<unit> = FSharp.Control.Async.Ignore<'a> x

    type System.Threading.Tasks.Task with
        [<RequiresExplicitTypeArguments>]
        static member inline Ignore<'a>(x: Task<'a>) : Task<unit> =
            task {
                let! r = x
                return ignore<'a> r
            }

        [<RequiresExplicitTypeArguments>]
        static member inline IgnoreArg<'a>(x: Task<'a>) : System.Threading.Tasks.Task = x