This way of exporting broke with git 1.8.0

2012-12-06 20:36:32 -07:00 · 2012-12-06 20:36:32 -07:00 · 0845e74d27
commit 0845e74d27
parent 8d1dbdd9ad
1 changed files with 7 additions and 6 deletions
--- a/collects/meta/drdr/scm.rkt
+++ b/collects/meta/drdr/scm.rkt
@ -253,12 +253,13 @@
          (list rev repo dest)
          end)
  (pipe
-   (system*
-    (git-path) "archive"
-    (format "--remote=~a" repo)
-    (format "--prefix=~a/" (regexp-replace #rx"/+$" (path->string* dest) ""))
-    "--format=tar"
-    end)
+   (parameterize ([current-directory repo])
+     (system*
+      (git-path) "archive"
+      (format "--prefix=~a/"
+              (regexp-replace #rx"/+$" (path->string* dest) ""))
+      "--format=tar"
+      end))
   (system* (find-executable-path "tar") "xf" "-" "--absolute-names"))
  (void))