record already-existing backup in log after restoring a secret key

This will prevent --autostart from prompting to get the newly restored key
backed up again.

This commit was sponsored by Remy van Elst on Patreon.

1 files changed, 2 insertions, 2 deletions

diff --git a/Tests.hs b/Tests.hs
index d18628e..09a7356 100644
--- a/Tests.hs
+++ b/Tests.hs
@@ -98,7 +98,7 @@ backupRestoreTest testdesc secretkey =
 
 	restore storagelocations = do
 		let sis = shareIdents tunables name secretkeysource
-		(shares, sis') <- retrieveShares storagelocations sis (return ())
+		(shares, sis', _) <- retrieveShares storagelocations sis (return ())
 		let candidatekeys = candidateKeyEncryptionKeys tunables name password
 		case combineShares tunables [shares] of
 			Left e -> testFailed e
@@ -112,7 +112,7 @@ backupRestoreTest testdesc secretkey =
 				then testSuccess
 				else testFailed "restore yielded different value than was backed up"
 		DecryptIncomplete kek -> do
-			(nextshares, sis') <- retrieveShares storagelocations sis (return ())
+			(nextshares, sis', _) <- retrieveShares storagelocations sis (return ())
 			let shares = firstshares ++ [nextshares]
 			case combineShares tunables shares of
 				Left e -> testFailed e