rnhmjoj/bup-backup
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

print some info

Browse Source
This commit is contained in:
Michele Guerini Rocco 2019-08-09 00:25:11 +02:00
parent bfa0510c97
commit 6f6b165a4a
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bup-backup.hs
View File

@ -43,7 +43,9 @@ findPath server path = do
backup :: String -> String -> Segment () backup :: String -> String -> Segment ()
backup server name = do backup server name = do
path <- findPath server (name </> "latest") path <- findPath server (name </> "latest")
echo "indexing" name
proc "bup" ("index" : path : "--exclude-rx" : excluded) proc "bup" ("index" : path : "--exclude-rx" : excluded)
echo "saving" name
bup "save" "-r" server "-n" name path bup "save" "-r" server "-n" name path