conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

bzr-snapshot more verbose

This commit is contained in:
Abdulaziz Ghuloum 2009-06-27 11:45:11 +03:00
parent 5e26cf5313
commit b8cfdbbf66
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lab/bzr-snapshot.ss
View File

@ -17,6 +17,7 @@
(read (open-string-input-port (shell "bzr" "revno" repo)))]) (read (open-string-input-port (shell "bzr" "revno" repo)))])
(let ([file (string-append dest-dir "/" (format file-template revno))]) (let ([file (string-append dest-dir "/" (format file-template revno))])
(unless (file-exists? file) (unless (file-exists? file)
(printf "extracting revision ~s to ~s\n" revno file)
(shell "bzr" "export" (shell "bzr" "export"
"-r" (number->string revno) "-r" (number->string revno)
file repo))))) file repo)))))