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