Improve pubdir parameter reporting
This commit is contained in:
parent
e62ec11140
commit
45a653d949
|
@ -9,13 +9,13 @@ open Logarion
|
||||||
let publish pubdir ids =
|
let publish pubdir ids =
|
||||||
let kv = Logarion.File_store.of_kv_file () in
|
let kv = Logarion.File_store.of_kv_file () in
|
||||||
let predicate t = List.mem t.Text.id ids in
|
let predicate t = List.mem t.Text.id ids in
|
||||||
let pubdir = match pubdir with Some d -> d | None ->
|
let pubdir_source, pubdir = match pubdir with Some d -> "--pubdir ", d | None ->
|
||||||
try Logarion.Store.KV.find "Pubdir" kv with Not_found ->
|
try "txt.conf:Pubdir", Logarion.Store.KV.find "Pubdir" kv with Not_found ->
|
||||||
try Sys.getenv "txtpubdir" with Not_found -> ""
|
try "$txtpubdir", Sys.getenv "txtpubdir" with Not_found -> "$txtpubdir", ""
|
||||||
in
|
in
|
||||||
let targets = targets pubdir in
|
let targets = targets pubdir in
|
||||||
if targets = [] then
|
if targets = [] then
|
||||||
Printf.eprintf "No target directories in $pubdir='%s'\n" pubdir
|
Printf.eprintf "No target directories in %s='%s'\n" pubdir_source pubdir
|
||||||
else begin
|
else begin
|
||||||
let pub_dirs = List.map (fun x -> snd x) targets in
|
let pub_dirs = List.map (fun x -> snd x) targets in
|
||||||
File_store.iter ~predicate (fun (_t, p) ->
|
File_store.iter ~predicate (fun (_t, p) ->
|
||||||
|
|
Loading…
Reference in New Issue