diff --git a/secrets b/secrets index 17f7c1d..e3364ba 100755 --- a/secrets +++ b/secrets @@ -76,10 +76,10 @@ file-contract))) (define config-contract - (and/c (curryr dict-has-keys? '(host files)) - (hash/dc [k (or/c 'host 'files 'basedir)] + (and/c (curryr dict-has-keys? '(target files)) + (hash/dc [k (or/c 'target 'files 'basedir)] [v (k) (case k - [(host) string?] + [(target) string?] [(basedir) string?] [(files) file-list-contract])]))) @@ -220,11 +220,11 @@ EOF [files (map (curryr make-file source-basedir) (dict-ref config 'files))] - [host (dict-ref config 'host)]) + [target (dict-ref config 'target)]) (let-values ([(sp _ stdin stderr) (subprocess (current-output-port) #f #f (find-executable-path "ssh") - host + target (format "bash -c '~a'" (string-replace bootstrap-script