Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP

Comparing changes

Choose two branches to see what's changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
Checking mergeability… Don't worry, you can still create the pull request.
  • 1 commit
  • 1 file changed
  • 0 commit comments
  • 1 contributor
Showing with 6 additions and 7 deletions.
  1. +6 −7 src/leiningen/push.clj
13 src/leiningen/push.clj
@@ -1,7 +1,6 @@
(ns leiningen.push
- (:use [ :only [as-file]]
- [ :only [copy]]
- [leiningen.jar :only [jar get-default-jar-name]]
+ (:require [ :as io])
+ (:use [leiningen.jar :only [jar get-jar-filename]]
[leiningen.pom :only [pom]])
(:import (com.jcraft.jsch JSch JSchException Logger)
( File FileInputStream)))
@@ -49,13 +48,13 @@
(.connect channel)
(read-ack in)
(doseq [path files]
- (let [file (as-file path)]
+ (let [file (io/file path)]
(.write out (.getBytes (str "C0644 " (.length file) " "
(.getName file) "\n")))
(.flush out)
(read-ack in)
- (copy (FileInputStream. file) out)
+ (io/copy file out)
(.write out 0)
(.flush out)
(read-ack in)))
@@ -72,11 +71,11 @@
(JSch/setLogger (proxy [Logger] []
(isEnabled [level] true)
(log [level message] (println level message)))))
- (let [jarfile (get-default-jar-name project)]
+ (let [jarfile (get-jar-filename project)]
(pom project)
(jar project)
- (scp-send repo "pom.xml" jarfile)
+ (scp-send repo "target/pom.xml" jarfile)
(catch JSchException e
(.printStackTrace e)
(when (= (.getMessage e) "Auth fail")

No commit comments for this range

Something went wrong with that request. Please try again.