Txt pull puts peer texts in $txtdir/peers

git-svn-id: file:///srv/svn/repo/kosuzu/trunk@16 eb64cd80-c68d-6f47-b6a3-0ada418499da
2022-10-21 19:07:54 +00:00
parent ef29c97a92
commit 4b2642445c
2 changed files with 5 additions and 7 deletions
--- a/lib/peers.ml
+++ b/lib/peers.ml
@@ -1,4 +1,4 @@
-let text_dir = Filename.concat (Sys.getenv "HOME") ".local/share/texts"
+let text_dir = Filename.concat (File_store.def_dir ()) "peers"

 let fold fn init = match Sys.readdir text_dir with
 	| exception (Sys_error msg) -> prerr_endline msg