F# utility functions for Enum types

EnumUtil.fs

open System

module EnumUtil =

    /// Return all values for an enumeration type
    let EnumValues (enumType : Type) : seq<int> =
        let values = Enum.GetValues enumType
        let getValue (i : int) : int = downcast values.GetValue i
        let lb = values.GetLowerBound 0
        let ub = values.GetUpperBound 0
        seq { lb .. ub } |> Seq.map getValue

    /// Return minimum and maximum values for an enumeration type
    let EnumValueRange (enumType : Type) : int * int =
        let values = EnumValues enumType |> Seq.toList
        (List.min values), (List.max values)