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

fix excluded list

Browse Source
This commit is contained in:
rnhmjoj 2017-04-08 23:04:56 +02:00
parent 2bb9caf7d4
commit da84dd9907
No known key found for this signature in database
GPG Key ID: 362BB82B7E496B7C
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
bup-backup.hs
View File

@ -14,7 +14,8 @@ import System.FilePath
excluded :: [String] excluded :: [String]
excluded = intersperse "--exclude" excluded = intersperse "--exclude"
[ "/home/rnhmjoj/.cache/" [ "/home/rnhmjoj/.cache/"
, "/home/rnhmjoj/games/" , "/home/rnhmjoj/game/"
, "/home/rnhmjoj/.config/mozilla/firefox/tay31tbe.default/lock"
] ]
@ -34,7 +35,7 @@ findPath path = do
backup :: String -> Segment () backup :: String -> Segment ()
backup name = do backup name = do
path <- findPath (name </> "latest") path <- findPath (name </> "latest")
proc "bup" ("index" : "-v" : path : "--exclude" : excluded) proc "bup" ("index" : path : "--exclude" : excluded)
bup "save" "-n" name path bup "save" "-n" name path