improve layout

2 files changed, 2 insertions, 2 deletions

diff --git a/Cost.hs b/Cost.hs
index 968cd31..88d1d61 100644
--- a/Cost.hs
+++ b/Cost.hs
@@ -108,7 +108,7 @@ costOverTimeTable cost thisyear = go [] thisyear $ costOverTime cost thisyear
   where
 	go t _ [] = reverse t
 	go t yprev ((c, y):ys) =
-		let s = "  " ++ show y ++ ":\t" ++ show c
+		let s = "  in " ++ show y ++ ":  " ++ show c
 		in if yprev < y - 1
 			then go (s:"  ...":t) y ys
 			else go (s:t) y ys
diff --git a/keysafe.hs b/keysafe.hs
index 311a598..7e23b3b 100644
--- a/keysafe.hs
+++ b/keysafe.hs
@@ -103,7 +103,7 @@ backup ui tunables secretkeysource secretkey = do
 		let mincost = Dollars 100000
 		if crackcost < mincost
 			then do
-				showError ui $ "Weak password! It would cost less than " ++ show mincost ++ " to crack the password. Please think of a better one. More words would be good.."
+				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.."
 				promptkek name
 			else do
 				(thisyear, _, _) <- toGregorian . utctDay