fable-enum-as-string.fs

let inline fromStr< ^T when ^T : enum<int32> and ^T : equality >(s: string) : Option< ^T > =
  let t = typeof<'T>
  let enumStrings = System.Enum.GetNames(t)
  let vals = System.Enum.GetValues(t) :?> 'T[]
  Array.zip vals enumStrings
  |> Array.tryFind (fun (x, s') -> s' = s)
  |> Option.map fst

let inline toStr< ^T when ^T : enum<int32> and ^T : equality >(x: ^T) =
  let t = typeof<'T>
  let enumStrings = System.Enum.GetNames(t)
  let vals = System.Enum.GetValues(t) :?> 'T[]
  Array.zip vals enumStrings
  |> Array.find (fun (x', s) -> x' = x)
  |> snd