certs>directory ( assoc path -- )

Vocabulary

certs

Inputs

assoc	an object
path	an object

Outputs

None

Definition

USING: assocs io.directories io.encodings.utf8 io.files kernel ;

IN: certs

: certs>directory ( assoc path -- )
    dup make-directories
    [ [ swap utf8 set-file-contents ] assoc-each ]
    with-directory ;