wording

1 files changed, 2 insertions, 2 deletions

diff --git a/keysafe.hs b/keysafe.hs
index 72bb03b..2af2ad2 100644
--- a/keysafe.hs
+++ b/keysafe.hs
@@ -90,7 +90,7 @@ backup storagelocations ui tunables secretkeysource secretkey = do
 				let step = 50 `div` sum (map S.size shares)
 				storeShares storagelocations sis shares (addpercent step)
 		case r of
-			StoreSuccess -> showInfo ui "Success" "Your secret key successfully encrypted and backed up."
+			StoreSuccess -> showInfo ui "Success" "Your secret key was successfully encrypted and backed up."
 			StoreFailure s -> showError ui ("There was a problem storing your encrypted secret key: " ++ s)
 			StoreAlreadyExists -> do
 				showError ui $ unlines
@@ -211,7 +211,7 @@ restore storagelocations ui possibletunables secretkeydest = do
 			_ <- setpercent 100
 			writeSecretKey secretkeydest secretkey
 			return $
-				showInfo ui "Success" "Your secret key successfully restored!"
+				showInfo ui "Success" "Your secret key was successfully restored!"
 		DecryptIncomplete kek -> do
 			-- Download shares for another chunk.
 			(nextshares, sis') <- retrieveShares storagelocations sis (return ())