print some info

2019-08-09 00:25:11 +02:00 · 2019-08-09 00:25:11 +02:00 · 6f6b165a4a
parent bfa0510c97
commit 6f6b165a4a
1 changed files with 2 additions and 0 deletions
--- a/bup-backup.hs
+++ b/bup-backup.hs
@ -43,7 +43,9 @@ findPath server path = do
 backup :: String -> String -> Segment ()
 backup server name = do
  path <- findPath server (name </> "latest")
+  echo "indexing" name
  proc "bup" ("index" : path : "--exclude-rx" : excluded)
+  echo "saving" name
  bup "save" "-r" server "-n" name path