sync-no-checkout-repository-as-parallel ( pairs -- )

Vocabulary

cli.git

Inputs

pairs

an object

Outputs

None

Definition

USING: concurrency.combinators concurrency.semaphores io
io.launcher kernel namespaces sequences ;

IN: cli.git

: sync-no-checkout-repository-as-parallel ( pairs -- )
    cli-git-num-parallel get <semaphore> [
        [
            first2 dup print
            flush sync-no-checkout-repository-as
            wait-for-success
        ] with-semaphore
    ] curry parallel-each ;