diff options
Diffstat (limited to 'web/panettone/src/authentication.lisp')
| -rw-r--r-- | web/panettone/src/authentication.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/web/panettone/src/authentication.lisp b/web/panettone/src/authentication.lisp index 50befbc7a1..07b9a6a87c 100644 --- a/web/panettone/src/authentication.lisp +++ b/web/panettone/src/authentication.lisp @@ -78,6 +78,8 @@ and a retry" (ldap-entry->user ldap-entry))) (defun find-user-by-dn (dn) + "Look up the user with the given DN in the LDAP database, returning an +instance of `user'" (with-ldap () (let ((have-results (handler-case |