check-host ( user host -- )

Vocabulary

mason

Inputs

user	an object
host	an object

Outputs

None

Definition

USING: io.pathnames make mason.common mason.config namespaces
sequences ;

IN: mason

: check-host ( user host -- )
    "@" glue [
        scp-command get ,
        "resource:LICENSE.txt" absolute-path canonicalize-path ,
        ":" append ,
    ] { } make short-running-process ;