fix tar syntax

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 ()