Author: Kevin Schoon [kevinschoon@gmail.com]

Hash: 06a1131c05c2a59e44e078b48783ed7541b3788d

Timestamp: Sun, 27 Sep 2020 17:38:12 +0000 (4 years ago)

+3 -3 +/-3 browse

write_short -> to_stdout

1	diff --git a/lib/cmd.ml b/lib/cmd.ml
2	index 9118f20..6bd614b 100644
3	--- a/lib/cmd.ml
4	+++ b/lib/cmd.ml
5	@@ -247,7 +247,7 @@ note ls
6	| ListStyle.Wide -> `Wide
7	| ListStyle.Simple -> `Simple
8	in
9	- print_short ~style notes]
10	+ to_stdout ~style notes]
11
12	let run =
13	Command.run ~version:"%%VERSION%%"
14	diff --git a/lib/note.ml b/lib/note.ml
15	index 6e0171a..7abefc9 100644
16	--- a/lib/note.ml
17	+++ b/lib/note.ml
18	@@ -262,7 +262,7 @@ module Display = struct
19	])
20	cells
21
22	- let print_short ~style notes =
23	+ let to_stdout ~style notes =
24	let cells = to_cells notes in
25	match style with
26	| `Simple ->
27	diff --git a/lib/note.mli b/lib/note.mli
28	index 6333aa9..0d5e4d0 100644
29	--- a/lib/note.mli
30	+++ b/lib/note.mli
31	@@ -61,5 +61,5 @@ module Display : sig
32
33	type row = cell list
34
35	- val print_short : style:[<`Fixed | `Simple | `Wide] -> t list -> unit
36	+ val to_stdout : style:[<`Fixed | `Simple | `Wide] -> t list -> unit
37	end