diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2009-11-02 11:43:28 -0500 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2009-11-02 11:43:28 -0500 |
| commit | 12e935b5ed1d462a4a48f647e17315a0bb25b48b (patch) | |
| tree | 0feb8925acfa7b5ffbba8e64cd4319663475742b | |
| parent | 962d8be44aa71ee13aa12a21f277f62b3c301021 (diff) | |
http/agent.clj: prevent hang on immediate (string (http-agent...))
Reported at
http://groups.google.com/group/clojure/browse_frm/thread/f6676b28cb7e68c9
| -rw-r--r-- | src/clojure/contrib/http/agent.clj | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/clojure/contrib/http/agent.clj b/src/clojure/contrib/http/agent.clj index bff3c250..46e40342 100644 --- a/src/clojure/contrib/http/agent.clj +++ b/src/clojure/contrib/http/agent.clj @@ -263,6 +263,7 @@ headers, or clojure.contrib.duck-streams/*default-encoding* if it is not specified." ([http-agnt] + (await http-agnt) ;; have to wait for Content-Encoding (string http-agnt (or (.getContentEncoding #^HttpURLConnection (::connection @http-agnt)) duck/*default-encoding*))) |