software-archive/logarion-2016
2
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove unused function

Browse Source
This commit is contained in:
Stavros Polymenis 2017-11-02 23:53:19 +00:00
parent eef58f96b2
commit f7b7cce697
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/logarion_cli.ml
View File

@ -24,14 +24,6 @@ let init force =
| Ok false -> print_endline ("Reinitialise existing " ^ descr ^ " directory in " ^ dir); create_dirs tl
| Error (`Msg msg) -> prerr_endline @@ "Failed making " ^ descr ^ ". " ^ msg
in
let rec make_copies = function
| [] -> ()
| (source,dest)::tl ->
let recursive = true in
match Bos.OS.Cmd.run (Bos.Cmd.(v "cp" %% (on recursive @@ v "-r") % source % dest)) with
| Ok () -> make_copies tl
| Error (`Msg msg) -> prerr_endline msg
in
let dirs = [
".logarion", "Logarion";
".logarion/static", "static files";