(* Helpers for code generated by the Dessser OCaml backend *)

  Dessser has no type variables and can not build pairs ( or tuples ) so we need 
  * those very explicit helpers :
 * those very explicit helpers: *)

let make_float_pair (v1 : float) (v2 : float) =
  v1, v2

let make_string_pair (v1 : string) (v2 : string) =
  v1, v2

let make_factor_value (v1 : string) (v2 : RamenTypes.value) =
  v1, v2

let make_extractors_vector slist =
  Array.of_list slist

 Helpers for code generated by the Dessser OCaml backend 

  Dessser has no type variables and can not build pairs ( or tuples ) so we need 
  * those very explicit helpers :
 * those very explicit helpers: *)

let make_float_pair (v1 : float) (v2 : float) =
  v1, v2

let make_string_pair (v1 : string) (v2 : string) =
  v1, v2

let make_factor_value (v1 : string) (v2 : RamenTypes.value) =
  v1, v2

let make_extractors_vector slist =
  Array.of_list slist
