diff options
Diffstat (limited to 'ServerBackup.hs')
| -rw-r--r-- | ServerBackup.hs | 8 |
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 -> |