diff options
Diffstat (limited to 'ServerBackup.hs')
-rw-r--r-- | ServerBackup.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ServerBackup.hs b/ServerBackup.hs index 1ef3fdd..bf76929 100644 --- a/ServerBackup.hs +++ b/ServerBackup.hs @@ -29,7 +29,7 @@ genBackup lsd d = do topdir <- storageTopDir lsd createDirectoryIfMissing True d dest <- backupFile d <$> getPOSIXTime - callCommand ("tar -C " ++ topdir ++ " c . | gpg --encrypt --default-recipient-self > " ++ dest) + callCommand ("tar -C " ++ topdir ++ " -c . | gpg --encrypt --default-recipient-self > " ++ dest) -- Keep the past 7 backup files, in case an object file somehow -- gets deleted, this avoids the backup losing it too. -- These backup files can be used to determine eg, what day @@ -42,7 +42,7 @@ restoreBackup lsd d = do topdir <- storageTopDir lsd bs <- findBackups d forM_ bs $ \b -> - callCommand ("gpg --decrypt " ++ b ++ " | tar -C " ++ topdir ++ " x") + callCommand ("gpg --decrypt " ++ b ++ " | tar -C " ++ topdir ++ " -x") let storage = serverStorage lsd _ <- obscureShares storage return () |