Author: Kevin Schoon [me@kevinschoon.com]
Hash: 34ec4065b7b829dd0346636b84d863af4800d622
Timestamp: Sat, 18 Nov 2023 13:51:41 +0000 (8 months ago)

+5 -5 +/-4 browse
remove a few depicated usages
1diff --git a/bin/note.ml b/bin/note.ml
2index 6ecd58e..9fd3102 100644
3--- a/bin/note.ml
4+++ b/bin/note.ml
5 @@ -267,7 +267,7 @@ let version =
6 | None -> "n/a"
7 | Some v -> Build_info.V1.Version.to_string v
8
9- let run =
10+ let _ =
11 Command_unix.run ~version ~build_info:""
12 (Command.group ~summary:"Note is a simple CLI based note taking application"
13 [
14 diff --git a/lib/note.ml b/lib/note.ml
15index c269e96..852883e 100644
16--- a/lib/note.ml
17+++ b/lib/note.ml
18 @@ -67,7 +67,7 @@ let extract_structured_data content =
19 in
20 let get_data ~values doc =
21 match doc with
22- | Omd.Code_block (kind, content) -> of_codeblock kind content @ values
23+ | Omd.Code_block (_, kind, content) -> of_codeblock kind content @ values
24 | _ -> values
25 in
26 let doc = content |> Omd.of_string in
27 diff --git a/lib/slug.ml b/lib/slug.ml
28index a05ab1a..ca61d4f 100644
29--- a/lib/slug.ml
30+++ b/lib/slug.ml
31 @@ -42,7 +42,7 @@ let load state_dir =
32 |> List.map ~f:of_string
33
34 let next ?(last = None) state_dir =
35- let today = Time.now () |> Time.to_date ~zone:Time.Zone.utc in
36+ let today = Time_float_unix.now () |> Time_float_unix.to_date ~zone:Time_float_unix.Zone.utc in
37 let today_str = Date_unix.format today "%Y%m%d" in
38 match last with
39 | Some last ->
40 diff --git a/test/slug_test.ml b/test/slug_test.ml
41index 78a71ff..c38e56d 100644
42--- a/test/slug_test.ml
43+++ b/test/slug_test.ml
44 @@ -21,7 +21,7 @@ let test_slug_comparable () =
45 Alcotest.(check bool) "identical paths" true (Slug.compare s1 s2 = 0)
46
47 let test_slug_path () =
48- let date_string = Time_unix.format (Time.now ()) "%Y%m%d" ~zone:Time.Zone.utc in
49+ let date_string = Time_float_unix.format (Time_float_unix.now ()) "%Y%m%d" ~zone:Time_float_unix.Zone.utc in
50 let state_dir = Filename_unix.temp_dir "note-test" "" in
51 let slug = Slug.next state_dir in
52 let expected =
53 @@ -30,7 +30,7 @@ let test_slug_path () =
54 Alcotest.(check string) "path" expected slug.path
55
56 let test_slug_increment () =
57- let date_string = Time_unix.format (Time.now ()) "%Y%m%d" ~zone:Time.Zone.utc in
58+ let date_string = Time_float_unix.format (Time_float_unix.now ()) "%Y%m%d" ~zone:Time_float_unix.Zone.utc in
59 let slug = Slug.next "/fuu/bar" in
60 let expected = sprintf "/fuu/bar/note-%s-%d.md" date_string 0 in
61 Alcotest.(check string) "check path" expected (slug |> Slug.to_string);