ObjToString.re

type marshalled_location = {.
  "administrative_area_level_1": string,
  "country": string,
  "locality": string,
  "postal_code": string,
  "route": string,
  "street_number": string };

let quote = (s:string): string => {
  "\"" ++ s ++ "\"";
};

let field = (fieldName, fieldValue) => {
  quote(fieldName) ++ ":" ++ quote(fieldValue);
};

let locationToString = (m: marshalled_location) => {
  "{" ++ Js.Array.joinWith(",",
    [| field("administrative_area_level_1", m##administrative_area_level_1),
      field("country", m##country),
      field("locality", m##locality),
      field("postal_code", m##postal_code),
      field("route", m##route),
      field("street_number", m##street_number) |]) ++ "}"
};

type input = {
  key: string,
  id: string,
  placeholder: string,
  input_type: string,
  location: option(marshalled_location)
};

let toString = (inp: input) : string =>
{
  "[" ++ Js.Array.joinWith(",",
    [|quote(inp.key), quote(inp.id), quote(inp.placeholder), quote(inp.input_type)|]) ++
    switch (inp.location) {
    | Some(loc) => "," ++ locationToString(loc)
    | None => ""
    } ++ "]";
};

  
let loc1: marshalled_location = [%bs.obj {
  administrative_area_level_1: "AZ",
  country: "United States",
  locality: "Tucson",
  postal_code: "85710",
  route: "East Broadway Boulevard",
  street_number: "6339"}
];

let inp1 = {key: "0", id: "pickup address", placeholder: "address 0", input_type: "pickup",
  location: Some(loc1)};

Js.log(toString(inp1));