This way of exporting broke with git 1.8.0

This commit is contained in:
Jay McCarthy 2012-12-06 20:36:32 -07:00
parent 8d1dbdd9ad
commit 0845e74d27

View File

@ -253,12 +253,13 @@
(list rev repo dest) (list rev repo dest)
end) end)
(pipe (pipe
(system* (parameterize ([current-directory repo])
(git-path) "archive" (system*
(format "--remote=~a" repo) (git-path) "archive"
(format "--prefix=~a/" (regexp-replace #rx"/+$" (path->string* dest) "")) (format "--prefix=~a/"
"--format=tar" (regexp-replace #rx"/+$" (path->string* dest) ""))
end) "--format=tar"
end))
(system* (find-executable-path "tar") "xf" "-" "--absolute-names")) (system* (find-executable-path "tar") "xf" "-" "--absolute-names"))
(void)) (void))