bzr-snapshot more verbose

14 years ago · b8cfdbbf66
parent 5e26cf5313
commit b8cfdbbf66
1 changed files with 1 additions and 0 deletions
--- a/lab/bzr-snapshot.ss
+++ b/lab/bzr-snapshot.ss
@ -17,6 +17,7 @@
         (read (open-string-input-port (shell "bzr" "revno" repo)))])
    (let ([file (string-append dest-dir "/" (format file-template revno))])
      (unless (file-exists? file)
+        (printf "extracting revision ~s to ~s\n" revno file)
        (shell "bzr" "export"
               "-r" (number->string revno) 
               file repo)))))