git-bare-directory? ( directory -- ? )

Vocabulary

cli.git

Inputs

directory

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit io.files.info kernel ;

IN: cli.git

: git-bare-directory? ( directory -- ? )
    {
        [ ?file-info [ directory? ] [ f ] if* ]
        [ git-is-bare-repository ]
    } 1&& ;