Note:

You are viewing a development version of the library. Goto the latest version.

let to_string t =
    Printf.sprintf
      "oasis_version: %s; alpha_features: %s; beta_features: %s; plugins_version: %s"
      (OASISVersion.string_of_version t.oasis_version)
      (String.concat ", " t.alpha_features)
      (String.concat ", " t.beta_features)
      (String.concat ", "
         (MapPlugin.fold
            (fun (_, plg) ver_opt acc ->
               (plg^
                (match ver_opt with
                   | Some v ->
                       " "^(OASISVersion.string_of_version v)
                   | None -> ""))
               :: acc)
            t.plugin_versions []))