software-archive/logarion-2021
2
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix print_last

Browse Source
This commit is contained in:
orbifx 2021-06-22 14:55:26 +01:00
parent 0f2336e398
commit 95b88a6768
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cli/cli.ml
View File

@ -42,7 +42,7 @@ let list_term =
Term.(const text_list $ time $ reverse $ field $ authors $ keywords $ topics),
Term.info "list" ~doc:"list texts" ~man:[ `S "DESCRIPTION"; `P "List texts" ]
let print_last =
let print_last () =
match A.of_path (Sys.getcwd ()) with
| Error msg -> prerr_endline msg
| Ok archive ->
@ -50,7 +50,7 @@ let print_last =
print_endline @@ A.fold ~order:A.oldest last "" archive
let last_term =
Term.(const print_last),
Term.(const print_last $ const ()),
Term.info "last" ~doc:"most recent test" ~man:[ `S "DESCRIPTION"; `P "Print the filename of most recent text" ]
let split_filetypes files =