Reason Records

reason_records_version.re

type metricCount = {type_: string};

type metricWithLabel = {
  type_: string,
  label: string
};

let createCountWithLabel = (label) : metricWithLabel => {type_: "COUNT", label};

type metric =
  | MetricCount(metricCount)
  | MetricWithLabel(metricWithLabel);

let transformToCount20 = (oldJson) : metric => {
  let label = Json.Decode.(oldJson |> optional(field("label", string)));
  switch label {
  | Some(v) => MetricWithLabel(createCountWithLabel(v))
  | None => MetricCount({type_: "COUNT"})
  }
};