X-Git-Url: https://code.consxy.com/gitweb/?a=blobdiff_plain;f=src%2Fmain%2Faws%2Faws.lisp;h=a6218dd4f6118efbc64c9a53f6428a2adc2496eb;hb=3f51764d1e808faae658768fd01e4fff87a5ab01;hp=ad224af7439ad7b56ba4ba2a0e17f0cc79fc6935;hpb=4aa3c53883d919803cac77f47ad16ce33047f6ce;p=candle

diff --git a/src/main/aws/aws.lisp b/src/main/aws/aws.lisp
index ad224af..a6218dd 100644
--- a/src/main/aws/aws.lisp
+++ b/src/main/aws/aws.lisp
@@ -97,8 +97,13 @@
    "--delete"
    "-e"
    (format nil "ssh -o StrictHostKeyChecking=no -o UserKnownHostsFile=/dev/null -i ~A" *aws-keyfile*)
+   "--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))
@@ -116,7 +121,10 @@
         "-i"
         *aws-keyfile*
         (describe-property "PublicIpAddress")
-        (format nil "cd ~A ; ~A run" *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)))))