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