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

improve exclusions

Browse Source
This commit is contained in:
Michele Guerini Rocco 2018-08-05 17:32:02 +02:00
parent da84dd9907
commit b0f018de5f
Signed by: rnhmjoj
GPG Key ID: 91BE884FBA4B591A
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
bup-backup.hs
View File

@ -12,10 +12,14 @@ import System.FilePath
excluded :: [String]
excluded = intersperse "--exclude"
[ "/home/rnhmjoj/.cache/"
, "/home/rnhmjoj/game/"
, "/home/rnhmjoj/.config/mozilla/firefox/tay31tbe.default/lock"
excluded = intersperse "--exclude-rx"
[ "/home/rnhmjoj/game/"
, "/home/rnhmjoj/\\.cache/"
, "/mozilla/firefox/.+/.?lock"
, "/mozilla/firefox/.+/datareporting/"
, "/mozilla/firefox/.+/saved-telemetry-pings/"
, "/mozilla/firefox/.+/gmp/"
, "/unity3d/.+/.+/Unity/"
]
@ -35,7 +39,7 @@ findPath path = do
backup :: String -> Segment ()
backup name = do
path <- findPath (name </> "latest")
proc "bup" ("index" : path : "--exclude" : excluded)
proc "bup" ("index" : path : "--exclude-rx" : excluded)
bup "save" "-n" name path