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.

1 files changed, 3 insertions, 3 deletions

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