preserve opts when creating socket reader, writer
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
Stuart Halloway
13 years ago
258 | 258 | (extend Socket |
259 | 259 | IOFactory |
260 | 260 | (assoc default-streams-impl |
261 | :make-input-stream (fn [^Socket x opts] (.getInputStream x)) | |
262 | :make-output-stream (fn [^Socket x opts] (.getOutputStream x)))) | |
261 | :make-input-stream (fn [^Socket x opts] (make-input-stream (.getInputStream x) opts)) | |
262 | :make-output-stream (fn [^Socket x opts] (make-output-stream (.getOutputStream x) opts)))) | |
263 | 263 | |
264 | 264 | (extend byte-array-type |
265 | 265 | IOFactory |