Source file toggl_v.ml

(* Auto-generated from "toggl.atd" *)
[@@@ocaml.warning "-27-32-33-35-39"]

(** Helper types *)

(** Response types *)
type datetime = Toggl_t.datetime

(** Represents a time entry as we send to Toggl when updating one *)
type time_entry_update_request = Toggl_t.time_entry_update_request = {
  description: string option;
  wid: int option;
  pid: int option option;
  start: datetime option;
  stop: datetime option option;
  duration: int option;
  tags: string list option;
  duronly: bool option;
  billable: bool option
}

type wrapped_time_entry_update_request =
  Toggl_t.wrapped_time_entry_update_request = {
  time_entry: time_entry_update_request
}

(**
  Represents a time entry as we send to Toggl when starting or creating one
*)
type time_entry_request = Toggl_t.time_entry_request = {
  description: string;
  wid: int option;
  pid: int option;
  start: datetime option;
  stop: datetime option option;
  duration: int;
  created_with: string;
  tags: string list;
  duronly: bool;
  billable: bool
}

type wrapped_time_entry = Toggl_t.wrapped_time_entry = {
  time_entry: time_entry_request
}

type wid = Toggl_t.wid

(** Represents a project as we send to Toggl when creating one *)
type project_request = Toggl_t.project_request = {
  wid: wid;
  name: string;
  billable: bool;
  is_private: bool;
  active: bool;
  auto_estimates: bool;
  estimated_hours: bool;
  actual_hours: int;
  template: bool;
  template_id: int option;
  cid: int option;
  color: string option;
  hex_color: string option
}

type wrapped_project_request = Toggl_t.wrapped_project_request = {
  project: project_request
}

(** Represents a workspace in Toggl *)
type workspace = Toggl_t.workspace = {
  id: wid;
  name: string;
  default_currency: string;
  at: datetime;
  premium: bool;
  admin: bool;
  default_hourly_rate: float;
  only_admins_may_create_projects: bool;
  only_admins_see_billable_rates: bool;
  only_admins_see_team_dashboard: bool;
  projects_billable_by_default: bool;
  rounding: int;
  rounding_minutes: int;
  ical_enabled: bool;
  api_token: string option;
  profile: int option;
  logo_url: string option
}

type workspace_list = Toggl_t.workspace_list

type uid = Toggl_t.uid

type tid = Toggl_t.tid

type pid = Toggl_t.pid

(** Represents a time enty as will be returned from the Toggl API *)
type time_entry = Toggl_t.time_entry = {
  id: tid;
  wid: wid;
  uid: uid;
  description: string;
  at: datetime;
  pid: pid option;
  start: datetime;
  stop: datetime option;
  duration: int;
  tags: string list;
  duronly: bool;
  billable: bool
}

type time_entry_list = Toggl_t.time_entry_list

type tid_list = Toggl_t.tid_list

(** Represents a project in Toggl *)
type project = Toggl_t.project = {
  id: pid;
  wid: wid;
  name: string;
  at: datetime;
  created_at: datetime option;
  billable: bool;
  is_private: bool;
  active: bool;
  auto_estimates: bool;
  estimated_hours: bool;
  actual_hours: int;
  template: bool;
  template_id: int option;
  color: string option;
  hex_color: string option
}

type project_list = Toggl_t.project_list

type pid_list = Toggl_t.pid_list

type data_time_entry = Toggl_t.data_time_entry = { data: time_entry }

(** Request types *)
type data_project = Toggl_t.data_project = { data: project }

let validate__x_ac63a5d = (
  fun _ _ -> None
)
let validate_datetime = (
  validate__x_ac63a5d
)
let validate__string_option = (
  fun _ _ -> None
)
let validate__string_list = (
  fun _ _ -> None
)
let validate__string_list_option = (
  fun _ _ -> None
)
let validate__int_option = (
  fun _ _ -> None
)
let validate__int_nullable = (
  fun _ _ -> None
)
let validate__int_nullable_option = (
  fun _ _ -> None
)
let validate__datetime_option = (
  fun _ _ -> None
)
let validate__datetime_nullable = (
  fun _ _ -> None
)
let validate__datetime_nullable_option = (
  fun _ _ -> None
)
let validate__bool_option = (
  fun _ _ -> None
)
let validate_time_entry_update_request : _ -> time_entry_update_request -> _ = (
  fun _ _ -> None
)
let validate_wrapped_time_entry_update_request : _ -> wrapped_time_entry_update_request -> _ = (
  fun _ _ -> None
)
let validate_time_entry_request : _ -> time_entry_request -> _ = (
  fun _ _ -> None
)
let validate_wrapped_time_entry : _ -> wrapped_time_entry -> _ = (
  fun _ _ -> None
)
let validate_wid = (
  (fun _ _ -> None)
)
let validate_project_request : _ -> project_request -> _ = (
  fun _ _ -> None
)
let validate_wrapped_project_request : _ -> wrapped_project_request -> _ = (
  fun _ _ -> None
)
let validate_workspace : _ -> workspace -> _ = (
  fun _ _ -> None
)
let validate__workspace_list = (
  fun _ _ -> None
)
let validate_workspace_list = (
  validate__workspace_list
)
let validate_uid = (
  (fun _ _ -> None)
)
let validate_tid = (
  (fun _ _ -> None)
)
let validate_pid = (
  (fun _ _ -> None)
)
let validate__pid_option = (
  fun _ _ -> None
)
let validate_time_entry : _ -> time_entry -> _ = (
  fun _ _ -> None
)
let validate__time_entry_list = (
  fun _ _ -> None
)
let validate_time_entry_list = (
  validate__time_entry_list
)
let validate__tid_list = (
  fun _ _ -> None
)
let validate_tid_list = (
  validate__tid_list
)
let validate_project : _ -> project -> _ = (
  fun _ _ -> None
)
let validate__project_list = (
  fun _ _ -> None
)
let validate_project_list = (
  validate__project_list
)
let validate__pid_list = (
  fun _ _ -> None
)
let validate_pid_list = (
  validate__pid_list
)
let validate_data_time_entry : _ -> data_time_entry -> _ = (
  fun _ _ -> None
)
let validate_data_project : _ -> data_project -> _ = (
  fun _ _ -> None
)
let create_time_entry_update_request 
  ?description
  ?wid
  ?pid
  ?start
  ?stop
  ?duration
  ?tags
  ?duronly
  ?billable
  () : time_entry_update_request =
  {
    description = description;
    wid = wid;
    pid = pid;
    start = start;
    stop = stop;
    duration = duration;
    tags = tags;
    duronly = duronly;
    billable = billable;
  }
let create_wrapped_time_entry_update_request 
  ~time_entry
  () : wrapped_time_entry_update_request =
  {
    time_entry = time_entry;
  }
let create_time_entry_request 
  ~description
  ?wid
  ?pid
  ?start
  ?stop
  ?(duration = 0)
  ~created_with
  ?(tags = [])
  ?(duronly = false)
  ?(billable = false)
  () : time_entry_request =
  {
    description = description;
    wid = wid;
    pid = pid;
    start = start;
    stop = stop;
    duration = duration;
    created_with = created_with;
    tags = tags;
    duronly = duronly;
    billable = billable;
  }
let create_wrapped_time_entry 
  ~time_entry
  () : wrapped_time_entry =
  {
    time_entry = time_entry;
  }
let create_project_request 
  ~wid
  ~name
  ?(billable = false)
  ?(is_private = false)
  ?(active = false)
  ?(auto_estimates = false)
  ?(estimated_hours = false)
  ?(actual_hours = 0)
  ?(template = false)
  ?template_id
  ?cid
  ?color
  ?hex_color
  () : project_request =
  {
    wid = wid;
    name = name;
    billable = billable;
    is_private = is_private;
    active = active;
    auto_estimates = auto_estimates;
    estimated_hours = estimated_hours;
    actual_hours = actual_hours;
    template = template;
    template_id = template_id;
    cid = cid;
    color = color;
    hex_color = hex_color;
  }
let create_wrapped_project_request 
  ~project
  () : wrapped_project_request =
  {
    project = project;
  }
let create_workspace 
  ~id
  ~name
  ~default_currency
  ~at
  ?(premium = false)
  ?(admin = false)
  ?(default_hourly_rate = 0.0)
  ?(only_admins_may_create_projects = false)
  ?(only_admins_see_billable_rates = false)
  ?(only_admins_see_team_dashboard = false)
  ?(projects_billable_by_default = false)
  ?(rounding = 0)
  ?(rounding_minutes = 0)
  ?(ical_enabled = false)
  ?api_token
  ?profile
  ?logo_url
  () : workspace =
  {
    id = id;
    name = name;
    default_currency = default_currency;
    at = at;
    premium = premium;
    admin = admin;
    default_hourly_rate = default_hourly_rate;
    only_admins_may_create_projects = only_admins_may_create_projects;
    only_admins_see_billable_rates = only_admins_see_billable_rates;
    only_admins_see_team_dashboard = only_admins_see_team_dashboard;
    projects_billable_by_default = projects_billable_by_default;
    rounding = rounding;
    rounding_minutes = rounding_minutes;
    ical_enabled = ical_enabled;
    api_token = api_token;
    profile = profile;
    logo_url = logo_url;
  }
let create_time_entry 
  ~id
  ~wid
  ~uid
  ~description
  ~at
  ?pid
  ~start
  ?stop
  ~duration
  ?(tags = [])
  ?(duronly = false)
  ?(billable = false)
  () : time_entry =
  {
    id = id;
    wid = wid;
    uid = uid;
    description = description;
    at = at;
    pid = pid;
    start = start;
    stop = stop;
    duration = duration;
    tags = tags;
    duronly = duronly;
    billable = billable;
  }
let create_project 
  ~id
  ~wid
  ~name
  ~at
  ?created_at
  ?(billable = false)
  ?(is_private = false)
  ?(active = false)
  ?(auto_estimates = false)
  ?(estimated_hours = false)
  ?(actual_hours = 0)
  ?(template = false)
  ?template_id
  ?color
  ?hex_color
  () : project =
  {
    id = id;
    wid = wid;
    name = name;
    at = at;
    created_at = created_at;
    billable = billable;
    is_private = is_private;
    active = active;
    auto_estimates = auto_estimates;
    estimated_hours = estimated_hours;
    actual_hours = actual_hours;
    template = template;
    template_id = template_id;
    color = color;
    hex_color = hex_color;
  }
let create_data_time_entry 
  ~data
  () : data_time_entry =
  {
    data = data;
  }
let create_data_project 
  ~data
  () : data_project =
  {
    data = data;
  }