save-git-id ( -- )

Vocabulary

mason.build

Inputs

None

Outputs

None

Definition

USING: combinators io.directories mason.common mason.git
mason.notify namespaces ;

IN: mason.build

: save-git-id ( -- )
    "factor" [ git-id ] with-directory {
        [ "git-id" to-file ]
        [ "factor/git-id" to-file ]
        [ current-git-id set ]
        [ notify-begin-build ]
    } cleave ;