Create union case from name

open Microsoft.FSharp.Reflection

let makeUnionCase<'T>(name: string) =
    let uci =
        FSharpType.GetUnionCases(typeof<option<string>>)
        |> Array.find (fun uci -> uci.Name = name)
    Microsoft.FSharp.Reflection.FSharpValue.MakeUnion(uci, [||]) :?> 'T