Changeset 22 in code for trunk/cli/publish.ml

Timestamp:

Nov 2, 2022, 9:47:20 PM (2 years ago)

Author:

fox

Message:

Use txt.conf to generate index.pck meta; fix double load while indexing

File:

• trunk/cli/publish.ml (modified) (2 diffs)

trunk/cli/publish.ml

@@ -1 @@
-let targets () =
-        let kv = Logarion.File_store.of_kv_file () in
+let targets kv =
         let pub_dir =
                 try Logarion.Store.KV.find "Pubdir" kv with Not_found ->
@@ -14 +13 @@
 open Logarion
 let publish ids =
+        let kv = Logarion.File_store.of_kv_file () in
         let predicate t = List.mem t.Text.id ids in
-        let targets = targets () in
+        let targets = targets kv in
         let pub_dirs = List.map (fun x -> snd x) targets in
         File_store.iter ~predicate (fun (_t, p) ->