From 336a7003b59df18326d396846bacbb69f119c7c7 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 22 Sep 2016 12:33:26 -0400 Subject: change backup log format so it can also log when backup of a key was skipped This will be used later when keysafe --autostart prompts if the user wants to back up their gpg key. Making the change now before the backup log format gets frozen. This commit was sponsored by Josh Taylor on Patreon. --- keysafe.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'keysafe.hs') diff --git a/keysafe.hs b/keysafe.hs index 6d5186a..7fe27cf 100644 --- a/keysafe.hs +++ b/keysafe.hs @@ -19,7 +19,7 @@ import Cost import SecretKey import Share import Storage -import BackupRecord +import BackupLog import AutoStart import HTTP.Server import ServerBackup @@ -114,10 +114,10 @@ backup cmdline storagelocations ui tunables secretkeysource secretkey = do _ <- sis `seq` addpercent 25 let step = 50 `div` sum (map S.size shares) storeShares storagelocations sis shares (addpercent step) - backuprecord <- mkBackupRecord (mapMaybe getServer locs) secretkeysource passwordentropy + backuplog <- mkBackupLog $ backupMade (mapMaybe getServer locs) secretkeysource passwordentropy case r of StoreSuccess -> do - storeBackupRecord backuprecord + storeBackupLog backuplog if queued then do willautostart <- isAutoStartFileInstalled -- cgit v1.2.3