comby-tools/comby
1
1
Fork 0
mirror of https://github.com/comby-tools/comby.git synced 2024-08-16 16:50:37 +03:00
Code Issues Packages Projects Releases Wiki Activity

output filename for processed tar files (#339)

Browse Source
This commit is contained in:
Rijnard van Tonder 2022-06-01 10:18:48 -07:00 committed by GitHub
parent 422756f39c
commit 1014a038d1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/app/pipeline/pipeline.ml
View File

@ -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