diff options
Diffstat (limited to 'keysafe.hs')
-rw-r--r-- | keysafe.hs | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -170,7 +170,12 @@ backup cmdline ui tunables distinguisher (secretkeysource, secretkey) = do let mincost = Dollars 100000 if crackcost < mincost then do - showError ui $ "Weak password! It would cost only " ++ show crackcost ++ " to crack the password. Please think of a better one. More words would be good.." + showError ui $ unlines + [ "Weak password! It would cost only " ++ show crackcost ++ " to crack the password." + , "Please think of a better one." + , "" + , "Suggestion: Pick 3 or 4 unrelated words for a strong password, like \"correct horse battery staple\"" + ] promptpassword name else do (thisyear, _, _) <- toGregorian . utctDay |