diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-20 16:04:19 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-20 16:04:19 -0700 |
| commit | 200eeb8abedb3bd87b0cd44e5d7838947b9c0d58 (patch) | |
| tree | bc76de3d4c58efe6b6183ccc36a1ab319f10d22b /src/connection/ssh.lisp | |
| parent | e423f9383116af6f5c66f1e120c8b00a563e0039 (diff) | |
| download | consfigurator-200eeb8abedb3bd87b0cd44e5d7838947b9c0d58.tar.gz | |
use get-hostname in :ssh ESTABLISH-CONNECTION
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/ssh.lisp')
| -rw-r--r-- | src/connection/ssh.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/connection/ssh.lisp b/src/connection/ssh.lisp index 3999478..59135ab 100644 --- a/src/connection/ssh.lisp +++ b/src/connection/ssh.lisp @@ -19,7 +19,7 @@ (defmethod establish-connection ((type (eql :ssh)) remaining &key - (hop (hostattr *host* :hostname))) + (hop (get-hostname))) (declare (ignore remaining)) (run "ssh" "-fN" hop) (make-instance 'ssh-connection :hostname hop)) |