diff options
| author | Griffin Smith <grfn@gws.fyi> | 2020-08-28T22·49-0400 |
|---|---|---|
| committer | glittershark <grfn@gws.fyi> | 2020-08-31T23·03+0000 |
| commit | 21690c644bc503e4c8cc55df00b398ab81fd7444 (patch) | |
| tree | 9d80b320d7c9300b8fea204e203de187fde5ce01 /web/panettone/src/packages.lisp | |
| parent | 2bc564bd0dfc886cc27d14271a8423c9a266482c (diff) | |
fix(panettone): Automatically reconnect to ldap r/1746
Wrap all ldap access in a macro that automatically reconnects and retries operations that fail due to a connection error, to handle the case where the ldap server restarts while we still have an open connection. Fixes: #44 Change-Id: I4859cf509106e480f97fed17e7f08e0eea909352 Reviewed-on: https://cl.tvl.fyi/c/depot/+/1871 Tested-by: BuildkiteCI Reviewed-by: eta <eta@theta.eu.org>
Diffstat (limited to 'web/panettone/src/packages.lisp')
| -rw-r--r-- | web/panettone/src/packages.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/web/panettone/src/packages.lisp b/web/panettone/src/packages.lisp index 1510df224b..1a8453055f 100644 --- a/web/panettone/src/packages.lisp +++ b/web/panettone/src/packages.lisp @@ -11,7 +11,7 @@ (:nicknames :authn) (:use :cl :panettone.util :klatre) (:import-from :defclass-std :defclass/std) - (:import-from :alexandria :when-let) + (:import-from :alexandria :when-let :with-gensyms) (:export :*user* :*ldap* :user :cn :dn :mail :displayname |