rnhmjoj/scat
1
0
Fork 0
mirror of https://github.com/redelmann/scat synced 2025-01-10 06:34:20 +01:00
Code Issues Releases Wiki Activity

Minor code quality changes.

Browse Source
This commit is contained in:
Romain Edelmann 2013-08-09 17:29:44 +02:00
parent 3edbc3421d
commit 6608dce71e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Scat.hs
View File

@ -71,7 +71,7 @@ getPassword = do
getPassConfirm = do
a <- askPassword "Password: "
b <- askPassword "Confirm: "
if (a == b)
if a == b
then return a
else do
printVerbose "Passwords do not match, please retry.\n"
@ -81,7 +81,7 @@ askPassword :: String -> Scat C.ByteString
askPassword str = do
printVerbose str
old <- liftIO $ hGetEcho stdin
pw <- liftIO $ bracket_
pw <- liftIO $ bracket_
(hSetEcho stdin False)
(hSetEcho stdin old)
C.getLine