[OCaml] High Intensity Training Online
docs apply STE100 fixes to presenter view comments
Fix passive voice in page_shell and view_model doc comments found during a full re-audit of the presenter/views layer. No behavior change.
Changed files
lib/presenter/page_shell.ml
@@ -28,9 +28,9 @@
28
28
let html_page ?viewer ?request ?(active = "") ?(show_nav = false)
29
29
?workout_started title content =
30
30
let spa_client = true in
31
Removed:
(* A workout is being logged exactly when its start epoch is present. The
32
Removed:
middle nav slot then shows the elapsed timer on every page, so the running
33
Removed:
workout is always visible; otherwise it is the routine link. *)
31
Added:
(* The trainee is logging a workout exactly when its start epoch is present.
32
Added:
The middle nav slot then shows the elapsed timer on every page, so the
33
Added:
running workout is always visible; otherwise it is the routine link. *)
34
34
let theme =
35
35
match request with
36
36
| Some request -> (
lib/presenter/view_model.ml
@@ -167,9 +167,9 @@
167
167
id : string; (** Record id for links and URL-addressable expansion. *)
168
168
imported : bool;
169
169
(** True for a promoted third-party import. Shown read-only; its title
170
Removed:
is the source title verbatim, and its imported status is signalled
171
Removed:
by an oxblood outline pill, not by text on the title. It feeds
172
Removed:
progress per exercise but is never a prescribed native record. *)
170
Added:
is the source title verbatim, and an oxblood outline pill, not text
171
Added:
on the title, signals its imported status. It feeds progress per
172
Added:
exercise but is never a prescribed native record. *)
173
173
at_unix : int; (** Start time in Unix seconds, for interleaving by date. *)
174
174
workout_name : string;
175
175
date : string; (** Workout date, pre-formatted "YYYY-MM-DD" in UTC. *)
@@ -235,7 +235,7 @@
235
235
module Import_warning = struct
236
236
type t = {
237
237
row : int; (** The source row that the adapter dropped. *)
238
Removed:
detail : string; (** Why the row was dropped, already phrased. *)
238
Added:
detail : string; (** Why the adapter dropped the row, already phrased. *)
239
239
}
240
240
(** One dropped import row, ready to render. The controller phrases the
241
241
reason, so no adapter warning variant crosses the boundary. *)