From da84dd9907f2ae26e8be45148d60c411617c4370 Mon Sep 17 00:00:00 2001 From: rnhmjoj Date: Sat, 8 Apr 2017 23:04:56 +0200 Subject: [PATCH] fix excluded list --- bup-backup.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/bup-backup.hs b/bup-backup.hs index 9ce0bbb..f05f443 100755 --- a/bup-backup.hs +++ b/bup-backup.hs @@ -14,7 +14,8 @@ import System.FilePath excluded :: [String] excluded = intersperse "--exclude" [ "/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 name = do path <- findPath (name "latest") - proc "bup" ("index" : "-v" : path : "--exclude" : excluded) + proc "bup" ("index" : path : "--exclude" : excluded) bup "save" "-n" name path