diff --git a/src/taoensso/sente/server_adapters/community/undertow.clj b/src/taoensso/sente/server_adapters/community/undertow.clj index beb0638..6bc7bad 100644 --- a/src/taoensso/sente/server_adapters/community/undertow.clj +++ b/src/taoensso/sente/server_adapters/community/undertow.clj @@ -54,11 +54,11 @@ ISenteUndertowAjaxChannel (ajax-read! [sch] - (let [{:keys [ajax-resp-timeout-ms ajax-resp-timeout-val]} + (let [{:keys [ajax-resp-timeout-ms]} adapter-opts] (if ajax-resp-timeout-ms - (deref resp-promise_ ajax-resp-timeout-ms ajax-resp-timeout-val) + (deref resp-promise_ ajax-resp-timeout-ms nil) (deref resp-promise_))))) (defn- ajax-ch [{:keys [on-open on-close]} adapter-opts] @@ -87,18 +87,12 @@ (defn get-sch-adapter "Returns an Undertow ServerChanAdapter. Options: - :ajax-resp-timeout-ms ; Max msecs to wait for Ajax responses (default 60 secs) - :ajax-resp-timeout-val ; Value returned in case of above timeout - ; (default `:undertow/ajax-resp-timeout`)" + :ajax-resp-timeout-ms ; Max msecs to wait for Ajax responses (default 60 secs)" ([] (get-sch-adapter nil)) ([{:as opts - :keys [ajax-resp-timeout-ms - ajax-resp-timeout-val] - - :or {ajax-resp-timeout-ms (* 60 1000) - ajax-resp-timeout-val :undertow/ajax-resp-timeout}}] + :keys [ajax-resp-timeout-ms] + :or {ajax-resp-timeout-ms (* 60 1000)}}] (UndertowServerChanAdapter. (assoc opts - :ajax-resp-timeout-ms ajax-resp-timeout-ms - :ajax-resp-timeout-val ajax-resp-timeout-val)))) + :ajax-resp-timeout-ms ajax-resp-timeout-ms))))