Changeset 6 in code for trunk/cli/file.ml

Timestamp:

Jun 16, 2022, 9:59:30 PM (3 years ago)

Author:

fox

Message:

txt publish <id>; file and convert to standard dirs

File:

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

trunk/cli/file.ml

@@ -1 @@
-let split_filetypes files =
-        let acc (dirs, files) x = if Sys.is_directory x
-                then (x::dirs, files) else (dirs, x::files) in
-        List.fold_left acc ([],[]) files
-
 open Logarion
 let file files =
-        let dirs, files = split_filetypes files in
+        let dirs, files = File_store.split_filetypes files in
         let _link_as_named dir file = Unix.link file (Filename.concat dir file) in
         let link_with_id dir file =
@@ -15 +10 @@
 
 let unfile files =
-        let dirs, files = split_filetypes files in
+        let dirs, files = File_store.split_filetypes files in
         let unlink dir file = try Unix.unlink (Filename.concat dir file)
                 with Unix.(Unix_error(ENOENT,_,_))-> () in