Fix ap-config bug

This commit is contained in:
Peter Taoussanis 2012-10-19 15:04:42 +07:00
parent ad2dad1156
commit 5750fc7c8b

View File

@ -104,8 +104,9 @@
[{apfn :fn :keys [async? max-message-per-msecs] :as appender}] [{apfn :fn :keys [async? max-message-per-msecs] :as appender}]
(-> (->
;; Wrap to add compile-time stuff to runtime appender arguments ;; Wrap to add compile-time stuff to runtime appender arguments
(let [{:keys [timestamp-pattern timestamp-locale prefix-fn] :as ap-config} (let [{ap-config :shared-appender-config
@config :keys [timestamp-pattern timestamp-locale prefix-fn]} @config
timestamp-fn (make-timestamp-fn timestamp-pattern timestamp-locale)] timestamp-fn (make-timestamp-fn timestamp-pattern timestamp-locale)]
(fn [{:keys [instant] :as apfn-args}] (fn [{:keys [instant] :as apfn-args}]