status-im
/
timbre
mirror of https://github.com/status-im/timbre.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

[#141] Housekeeping

This commit is contained in:
Peter Taoussanis 2015-12-15 11:19:58 +07:00
parent d59d902611
commit 47cf2121f6
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/taoensso/timbre.cljx
View File

@ -564,19 +564,19 @@
#+clj
(def get-hostname
(enc/memoize* (enc/ms :mins 1)
(fn []
;; Android doesn't like this on the main thread
;; `future` starts the agent threadpool so we use
;; java.util.concurrent.
(let [executor (java.util.concurrent.Executors/newSingleThreadExecutor)
f_ (.submit executor
^java.util.concurrent.Callable
(fn []
(try (.. java.net.InetAddress getLocalHost getHostName)
(catch java.net.UnknownHostException _ "UnknownHost"))))]
(try
(deref f_ 5000 "UnknownHost")
(finally (.shutdown executor)))))))
(fn []
;; Android doesn't like this on the main thread. Would use a `future` but
;; that starts the Clojure agent threadpool which can slow application
;; shutdown w/o a `(shutdown-agents)` call
(let [executor (java.util.concurrent.Executors/newSingleThreadExecutor)
f_ (.submit executor ^java.util.concurrent.Callable
(fn []
(try
(.. java.net.InetAddress getLocalHost getHostName)
(catch java.net.UnknownHostException _ "UnknownHost")
(finally (.shutdown executor)))))]
(deref f_ 5000 "UnknownHost")))))
(comment (get-hostname))