Changeset 60 in code for trunk/lib

Timestamp:

Feb 23, 2024, 12:50:27 PM (14 months ago)

Author:

yakumo.izuru

Message:

Bug fix: another unescaped '$', also, $txtdir -> $TXTDIR

Signed-off-by: Izuru Yakumo <yakumo.izuru@…>

File:

• trunk/lib/file_store.ml (modified) (1 diff)

trunk/lib/file_store.ml

@@ -5 +5 @@
 let extension = ".txt"
 
-let txtdir () = try Sys.getenv "txtdir" with Not_found ->
+let txtdir () = try Sys.getenv "TXTDIR" with Not_found ->
         let share = Filename.concat (Sys.getenv "HOME") ".local/share/texts/" in
         match Sys.is_directory share with true -> share