diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-02 12:36:17 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-02 12:37:20 -0700 |
| commit | 1856ff63a32e50f4074c7808339b6262c603be5d (patch) | |
| tree | 3c3b6ca5ec020d1904c3a04a25a90cb3017363ff /src/connection | |
| parent | 427388aea364e5cfcd62096b012d1904de65dd9a (diff) | |
| download | consfigurator-1856ff63a32e50f4074c7808339b6262c603be5d.tar.gz | |
:SUDO: use :FROM not :AS for keyword argument
Primarily to avoid confusion with :AS connection type.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection')
| -rw-r--r-- | src/connection/sudo.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/connection/sudo.lisp b/src/connection/sudo.lisp index 1197918..b8c7731 100644 --- a/src/connection/sudo.lisp +++ b/src/connection/sudo.lisp @@ -25,13 +25,13 @@ ;; data to obtain passwords by following the conventions for having ;; prerequisite data sources provide them. -(defmethod preprocess-connection-args ((type (eql :sudo)) &key as (user "root")) +(defmethod preprocess-connection-args ((type (eql :sudo)) &key from (user "root")) (list :sudo :user user :password (and - as + from (destructuring-bind (user host) - (split-string as :separator "@") + (split-string from :separator "@") (get-data-protected-string (strcat "--user-passwd--" host) user))))) |