Making the message more useful

cch1 · Sep 3, 2012 · e770ddf · e770ddf
1 parent 1d13549
commit e770ddf
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/clj/http/async/client/headers.clj b/src/clj/http/async/client/headers.clj
@@ -45,10 +45,10 @@
        ([k default] (if (.containsKey hds k)
                       (v hds k)
                       default)))
-      (cons [m] (throw (UnsupportedOperationException. "Headers are read only.")))
+      (cons [m] (throw (UnsupportedOperationException. "Form 'cons' not supported: headers are read only.")))
       (count [] (.size hds))
-      (assoc [k v] (throw (UnsupportedOperationException. "Headers are read only.")))
-      (without [k] (throw (UnsupportedOperationException. "Headers are read only")))
+      (assoc [k v] (throw (UnsupportedOperationException. "Form 'assoc' not supported: headers are read only.")))
+      (without [k] (throw (UnsupportedOperationException. "Form 'without' not supported: headers are read only")))
       (seq [] ((fn thisfn [plseq]
                   (lazy-seq
                    (when-let [pseq (seq plseq)]