                      (fn list-tokens-fn []
                        (let [{:keys [relative-path]} kv-config]
                          (->> (kv/zk-keys curator (str base-path "/" relative-path))
-                              (filter (fn [k] (not (str/starts-with? k "^"))))))))
+                           (filter (fn [k] (not (str/starts-with? k "^"))))))))
    :make-basic-auth-fn (pc/fnk []
                          (fn make-basic-auth-fn [uri username password]
                            (BasicAuthentication$BasicResult. (URI. uri) username password)))

  [{:keys [headers scheme ^ServletRequest servlet-request]}]
  (if servlet-request
    (or (some-> headers
                (get "x-forwarded-proto-version")
                str/upper-case)
        (.getProtocol servlet-request))
    (when scheme
      (str/upper-case

                                                                            instance-request-properties determine-priority-fn ws/process-response!
                                                                            ws/abort-request-callback-factory local-usage-agent request))
                                           handler (-> process-request-fn
                                                     (ws/wrap-ws-close-on-error)
                                                     wrap-descriptor-fn)]
                                       (ws/request-handler password handler request))))
   :display-settings-handler-fn (pc/fnk [wrap-secure-request-fn settings]
                                  (wrap-secure-request-fn
