Changeset 27 in code

Timestamp:

Nov 17, 2022, 7:22:23 PM (2 years ago)

Author:

fox

Message:

Improve pubdir parameter reporting

File:

• trunk/cli/publish.ml (modified) (1 diff)

trunk/cli/publish.ml

@@ -10 +10 @@
         let kv = Logarion.File_store.of_kv_file () in
         let predicate t = List.mem t.Text.id ids in
-        let pubdir = match pubdir with Some d -> d | None ->
-                try Logarion.Store.KV.find "Pubdir" kv with Not_found ->
-                try Sys.getenv "txtpubdir" with Not_found -> ""
+        let pubdir_source, pubdir = match pubdir with Some d -> "--pubdir ", d | None ->
+                try "txt.conf:Pubdir", Logarion.Store.KV.find "Pubdir" kv with Not_found ->
+                try "$txtpubdir", Sys.getenv "txtpubdir" with Not_found -> "$txtpubdir", ""
         in
         let targets = targets pubdir in
         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
                 let pub_dirs = List.map (fun x -> snd x) targets in