diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-09-16 12:15:01 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-09-16 12:15:01 -0400 |
commit | e1f847b5fb486e67dd88fce5d7db092855ea0e11 (patch) | |
tree | 0e6522e04b204bc9587571749466445b6f96f0b3 | |
parent | e0d68130087c1ee843e01d8cfebe0c12181c5ed9 (diff) | |
download | keysafe-e1f847b5fb486e67dd88fce5d7db092855ea0e11.tar.gz |
fix tar syntax
-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 () |