You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
438 B
15 lines
438 B
let extractFile = (~into as destination, filepath) => { |
|
let%lwt _ = System.mkdirp(destination); |
|
let%lwt _ = |
|
System.unix_exec( |
|
"tar", |
|
~args=[|"-xvf", filepath, "--directory", destination|], |
|
~stderr=`Dev_null, |
|
); |
|
let%lwt files = Fs.readdir(destination); |
|
let filename = List.hd(files); |
|
Lwt_unix.rename( |
|
Filename.concat(destination, filename), |
|
Filename.concat(destination, "installation"), |
|
); |
|
};
|
|
|