Permalink
Browse files

don't have default thread-pools

  • Loading branch information...
ztellman committed Feb 24, 2012
1 parent bd2fbf1 commit bf49d5a122b5d7067f96b705ca87d2bafbd32732
Showing with 7 additions and 6 deletions.
  1. +7 −6 src/aleph/netty.clj
View
@@ -361,12 +361,13 @@
;;:thread-pool {:max-thread-count (.availableProcessors (Runtime/getRuntime))}
}
options)
tp (let [tp (merge
{:name (str (:name options) ":thread-pool")}
(:thread-pool options))]
(if-not (map? tp)
tp
(thread-pool tp)))
tp (when (contains? options :thread-pool)
(let [tp (merge
{:name (str (:name options) ":thread-pool")}
(:thread-pool options))]
(if-not (map? tp)
tp
(thread-pool tp))))
options (assoc options
:thread-pool tp)
refuse-connections? (atom false)

0 comments on commit bf49d5a

Please sign in to comment.