From b0f018de5fe9b576cb6ab5cb33027c68ff9947d6 Mon Sep 17 00:00:00 2001 From: rnhmjoj Date: Sun, 5 Aug 2018 17:32:02 +0200 Subject: [PATCH] improve exclusions --- bup-backup.hs | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/bup-backup.hs b/bup-backup.hs index f05f443..66741b3 100755 --- a/bup-backup.hs +++ b/bup-backup.hs @@ -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