sync-repositories ( directory urls -- )

Vocabulary

cli.git

Inputs

directory	an object
urls	an object

Outputs

None

Definition

USING: concurrency.combinators concurrency.semaphores
io.directories kernel namespaces ;

IN: cli.git

: sync-repositories ( directory urls -- )
    [
        cli-git-num-parallel get <semaphore>
        [ [ sync-repository ] with-semaphore ] curry
        parallel-each
    ] curry with-ensure-directory ;