open Microsoft.FSharp.Reflection

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