projects
/
candle
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Change work dir to include project name, keep around
[candle]
/
src
/
main
/
aws
/
aws.lisp
diff --git
a/src/main/aws/aws.lisp
b/src/main/aws/aws.lisp
index c7fb21dae85fde7d9df6b19fa58c8539619b5464..a6218dd4f6118efbc64c9a53f6428a2adc2496eb 100644
(file)
--- a/
src/main/aws/aws.lisp
+++ b/
src/main/aws/aws.lisp
@@
-100,7
+100,10
@@
"--exclude"
".git"
(candle:project-dir (candle:job-project job))
"--exclude"
".git"
(candle:project-dir (candle:job-project job))
- (format nil "~A@~A:~A" *aws-username* (describe-property "PublicIpAddress") *remote-work-dir*)))
+ (format nil "~A@~A:~A/~A" *aws-username*
+ (describe-property "PublicIpAddress")
+ *remote-work-dir*
+ (candle:project-name (candle:job-project job)))))
(let*
((out nil)
(code nil))
(let*
((out nil)
(code nil))
@@
-118,7
+121,10
@@
"-i"
*aws-keyfile*
(describe-property "PublicIpAddress")
"-i"
*aws-keyfile*
(describe-property "PublicIpAddress")
- (format nil "cd ~A ; ~A run --env aws" *remote-work-dir* *remote-candle-location*))
+ (format nil "cd ~A/~A ; ~A run --env aws"
+ *remote-work-dir*
+ (candle:project-name (candle:job-project job))
+ *remote-candle-location*))
:output out-str
:error out-str
:wait t)))))
:output out-str
:error out-str
:wait t)))))