1 2 3 4 5 6 7 8 9module Duets.Data.VocalStyles open Duets.Common open Duets.Entities let all = Union.allCasesOf<VocalStyle> () let allNames = all |> List.map (fun vs -> vs, vs.ToString())
1 2 3 4 5 6 7 8 9
module Duets.Data.VocalStyles open Duets.Common open Duets.Entities let all = Union.allCasesOf<VocalStyle> () let allNames = all |> List.map (fun vs -> vs, vs.ToString())