"--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))
"-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)))))