forked from
anil.recoil.org/monopam
Monorepo management for opam overlays
fix(ocaml-requests): update tests and fuzz for cstruct→Bytes migration
Test files still referenced Cstruct.t where the API now uses bytes.
Fixed all H2 frame, HPACK, client, and connection tests.
Fixed fuzz test. 330 tests pass.
+15
-8
+15
-8
lib/changes.ml
+15
-8
lib/changes.ml
···
305
305
let day_of_week year month day =
306
306
match Ptime.of_date (year, month, day) with
307
307
| None -> 0
308
-
| Some t ->
309
-
(match Ptime.weekday t with
310
-
| `Sun -> 0 | `Mon -> 1 | `Tue -> 2 | `Wed -> 3
311
-
| `Thu -> 4 | `Fri -> 5 | `Sat -> 6)
308
+
| Some t -> (
309
+
match Ptime.weekday t with
310
+
| `Sun -> 0
311
+
| `Mon -> 1
312
+
| `Tue -> 2
313
+
| `Wed -> 3
314
+
| `Thu -> 4
315
+
| `Fri -> 5
316
+
| `Sat -> 6)
312
317
313
318
let add_days (y, m, d) n =
314
319
match Ptime.of_date (y, m, d) with
315
320
| None -> (y, m, d)
316
-
| Some t ->
321
+
| Some t -> (
317
322
let span = Ptime.Span.of_int_s (n * 86400) in
318
-
(match Ptime.add_span t span with
319
-
| Some t' -> let (y', m', d'), _ = Ptime.to_date_time t' in (y', m', d')
320
-
| None -> (y, m, d))
323
+
match Ptime.add_span t span with
324
+
| Some t' ->
325
+
let (y', m', d'), _ = Ptime.to_date_time t' in
326
+
(y', m', d')
327
+
| None -> (y, m, d))
321
328
322
329
let format_date (y, m, d) = Fmt.str "%04d-%02d-%02d" y m d
323
330