From 6f6b165a4a35a258e0da365f4c60e31fac645a6e Mon Sep 17 00:00:00 2001 From: rnhmjoj Date: Fri, 9 Aug 2019 00:25:11 +0200 Subject: [PATCH] print some info --- bup-backup.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/bup-backup.hs b/bup-backup.hs index 7e82e45..43f12e1 100755 --- 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