From e1f847b5fb486e67dd88fce5d7db092855ea0e11 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 16 Sep 2016 12:15:01 -0400 Subject: fix tar syntax --- ServerBackup.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'ServerBackup.hs') 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 () -- cgit v1.2.3