warn when changing master password

ChangeLog.md

@@ -3,6 +3,7 @@
 ## Unreleased changes
 
 - implemented manual saving
+- added a warning when changing master password
 
 ## 0.1.1
 

app/UI.hs

@@ -94,9 +94,13 @@ viewEditMenu = menu "View/Edit Password"
 
 changeMasterPass :: S.StateT Status IO ()
 changeMasterPass = do
-  oldP <- S.gets $ view masterPass
+  req (confirm $
-  newP <- req $ reqDefault getMasterPass oldP
+    "\nWARNING: Changing your master password will change all of your saved passwords.\n" ++
-  S.modify $ set masterPass newP
+    "Are you sure you would like to proceed?") >>= flip when
+    (do
+      oldP <- S.gets $ view masterPass
+      newP <- req $ reqDefault getMasterPass oldP
+      S.modify $ set masterPass newP)
   mainMenu
 
 lockSession :: S.StateT Status IO ()