Fix `ap-config` bug

This commit is contained in:
Peter Taoussanis 2012-10-19 15:04:42 +07:00
parent ad2dad1156
commit 5750fc7c8b
1 changed files with 4 additions and 3 deletions

View File

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