From 5487ed305120ee9c511878b90e9770ac30e20324 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 22 Sep 2016 15:03:28 -0400 Subject: 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. --- ServerBackup.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'ServerBackup.hs') 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 -> -- cgit v1.2.3