diff options
author | Colin Okay <cbeok@protonmail.com> | 2020-05-03 10:37:46 -0500 |
---|---|---|
committer | Colin Okay <cbeok@protonmail.com> | 2020-05-03 10:37:46 -0500 |
commit | 8e5bf4253d45e55594150c7736706a4175379305 (patch) | |
tree | d38db82755114a7aef49d63a90db025c23cd65bc /adminbot.lisp | |
parent | 7c1b9f0a09af14c1d790d5b5f8d4ee8ebc215380 (diff) |
method combination
Diffstat (limited to 'adminbot.lisp')
-rw-r--r-- | adminbot.lisp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/adminbot.lisp b/adminbot.lisp index a0b6708..300d13b 100644 --- a/adminbot.lisp +++ b/adminbot.lisp @@ -15,7 +15,7 @@ (defvar *adminbot* nil) -(defmethod hardcopy-plist ((bot adminbot)) +(defmethod hardcopy-plist append ((bot adminbot)) (list 'registration-shared-secret (registration-shared-secret bot) 'known-users (known-users bot))) @@ -140,7 +140,9 @@ :ssl (if (member :ssl config) (getf config :ssl) t) - :hardcopy (getf config :hardcopy) + :hardcopy (if (member :hardcopy config) + (getf config :hardcopy) + "granolin.hardcopy") :user-id (getf config :user-id) :homeserver (getf config :homeserver) :registration-shared-secret (getf config :registration-shared-secret)))) |