Commit
+8 -12 +/-1 browse
| 1 | diff --git a/lib/cmd.ml b/lib/cmd.ml |
| 2 | index ad06508..4666797 100644 |
| 3 | --- a/lib/cmd.ml |
| 4 | +++ b/lib/cmd.ml |
| 5 | @@ -73,8 +73,8 @@ note cat -encoding json |
| 6 | print_endline |
| 7 | ( match encoding with |
| 8 | | Json -> Note.Encoding.to_string ~style:`Json note |
| 9 | - | Yaml -> Note.Encoding.to_string ~style: `Yaml note |
| 10 | - | Raw -> Note.Encoding.to_string ~style: `Raw note )) |
| 11 | + | Yaml -> Note.Encoding.to_string ~style:`Yaml note |
| 12 | + | Raw -> Note.Encoding.to_string ~style:`Raw note )) |
| 13 | notes] |
| 14 | |
| 15 | let config_show = |
| 16 | @@ -93,11 +93,10 @@ let config_set = |
| 17 | Command.basic ~summary:"set a config value" |
| 18 | [%map_open |
| 19 | let key = anon ("key" %: key_arg) and value = anon ("value" %: string) in |
| 20 | - fun () -> |
| 21 | + fun () -> |
| 22 | let cfg = load in |
| 23 | let cfg = set cfg key (value_of_string key value) in |
| 24 | - save cfg |
| 25 | - ] |
| 26 | + save cfg] |
| 27 | |
| 28 | let create_note = |
| 29 | let open Command.Let_syntax in |
| 30 | @@ -241,13 +240,10 @@ note ls |
| 31 | Note.Filter.find_many ?strategy:filter_kind ~args:filter_args |
| 32 | get_notes |
| 33 | in |
| 34 | - let style = |
| 35 | - match style with |
| 36 | - | ListStyle.Fixed -> `Fixed |
| 37 | - | ListStyle.Wide -> `Wide |
| 38 | - | ListStyle.Simple -> `Simple |
| 39 | - in |
| 40 | - to_stdout ~style notes] |
| 41 | + match style with |
| 42 | + | ListStyle.Fixed -> to_stdout ~style:`Fixed notes |
| 43 | + | ListStyle.Wide -> to_stdout ~style:`Wide notes |
| 44 | + | ListStyle.Simple -> to_stdout ~style:`Simple notes] |
| 45 | |
| 46 | let run = |
| 47 | Command.run ~version:"%%VERSION%%" |