Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

suppress reflections

  • Loading branch information...
commit 992254634562fed3b9f29d504031f8df668fa951 1 parent 213bd00
Takahiro Hozumi authored
Showing with 5 additions and 4 deletions.
  1. +2 −1  project.clj
  2. +3 −3 src/clj_commons_exec.clj
View
3  project.clj
@@ -1,4 +1,5 @@
(defproject org.clojars.hozumi/clj-commons-exec "1.0.4"
:description "Apache Commons Exec wrapper for Clojure"
:dependencies [[org.clojure/clojure "1.3.0"]
- [org.apache.commons/commons-exec "1.1"]])
+ [org.apache.commons/commons-exec "1.1"]]
+ :warn-on-reflection true)
View
6 src/clj_commons_exec.clj
@@ -96,13 +96,13 @@
(let [pumper (if flush-input?
(FlushStreamPumper. in os)
(StreamPumper. in os true))
- t (Thread. pumper)]
+ t (Thread. ^Runnable pumper)]
(swap! threads conj t)
(.setDaemon t true))
(try (.close os)
(catch IOException e))))
(start [_]
- (doseq [t @threads] (.start t)))
+ (doseq [^Thread t @threads] (.start t)))
(stop [_]
(doseq [^Thread t @threads]
(try (.join t)
@@ -159,7 +159,7 @@
(if (string? in) (string->input-stream in (:encode opts)) in))
num-cmds-1 (-> cmds-list count dec)
pouts (repeatedly num-cmds-1 #(PipedOutputStream.))
- pins (map (fn [pos] (PipedInputStream. pos)) pouts)
+ pins (map (fn [^PipedOutputStream pos] (PipedInputStream. pos)) pouts)
outs (concat pouts [(:out opts)])
errs (concat (repeat num-cmds-1 nil) [(:err opts)])
ins (cons first-in pins)
Please sign in to comment.
Something went wrong with that request. Please try again.