mirror of
https://github.com/comby-tools/comby.git
synced 2024-08-16 16:50:37 +03:00
output filename for processed tar files (#339)
This commit is contained in:
parent
422756f39c
commit
1014a038d1
@ -346,7 +346,7 @@ let run
|
||||
loop ()
|
||||
else
|
||||
TarReader.read_content fd file_size >>= fun source ->
|
||||
let n = per_unit ~input:(String source) ~output_path:None in
|
||||
let n = per_unit ~input:(String source) ~output_path:(Some header.file_name) in
|
||||
TarReader.skip fd (Tar.Header.compute_zero_padding_length header) >>= fun () ->
|
||||
loop () >>= fun n' -> Lwt.return (n+n')
|
||||
in
|
||||
|
Loading…
Reference in New Issue
Block a user