Changeset 16 in code for trunk/lib/peers.ml


Ignore:
Timestamp:
Oct 21, 2022, 7:07:54 PM (3 years ago)
Author:
fox
Message:

Txt pull puts peer texts in $txtdir/peers

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/lib/peers.ml

    r3 r16  
    1 let text_dir = Filename.concat (Sys.getenv "HOME") ".local/share/texts"
     1let text_dir = Filename.concat (File_store.def_dir ()) "peers"
    22
    33let fold fn init = match Sys.readdir text_dir with
Note: See TracChangeset for help on using the changeset viewer.