In --autostart mode, check for gpg keys that have not been backed up, and offer to back them up.

Only ask once per key.

This commit was sponsored by Thomas Hochstein on Patreon.

1 files changed, 4 insertions, 4 deletions

diff --git a/ServerBackup.hs b/ServerBackup.hs
index bf76929..1c6b6a9 100644
--- a/ServerBackup.hs
+++ b/ServerBackup.hs
@@ -22,8 +22,8 @@ import Data.Time.Clock.POSIX
 -- in keysafe, and so help in a correlation attack.
 --
 -- Of course, it's not at all efficient for offsite backups!
-genBackup :: Maybe LocalStorageDirectory -> FilePath -> IO ()
-genBackup lsd d = do
+backupServer :: Maybe LocalStorageDirectory -> FilePath -> IO ()
+backupServer lsd d = do
 	let storage = serverStorage lsd
 	_ <- obscureShares storage
 	topdir <- storageTopDir lsd
@@ -37,8 +37,8 @@ genBackup lsd d = do
 	-- are kept.
 	pruneOldBackups d 7
 
-restoreBackup :: Maybe LocalStorageDirectory -> FilePath -> IO ()
-restoreBackup lsd d = do
+restoreServer :: Maybe LocalStorageDirectory -> FilePath -> IO ()
+restoreServer lsd d = do
 	topdir <- storageTopDir lsd
 	bs <- findBackups d
 	forM_ bs $ \b ->