ry
/
datarekisteri
6
0
Fork 0
Code Issues 10 Pull Requests Packages Projects Releases Wiki Activity

Display password prompt in CLI add-user

This commit is contained in:
Saku Laesvuori 2023-09-28 23:01:23 +03:00
parent 09a318ae32
commit 12e2d2a3e0
Signed by: slaesvuo
GPG Key ID: 257D284A2A1D3A32
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
backend/src/Datarekisteri/CLI.hs
View File

@ -32,7 +32,7 @@ main = do
addUserMain :: AddUserOpts -> CLIM () addUserMain :: AddUserOpts -> CLIM ()
addUserMain AddUserOpts {..} = do addUserMain AddUserOpts {..} = do
time <- currentTime time <- currentTime
passwordHash <- putStr "Password: " >> liftIO (withoutInputEcho getLine) >>= hashPassword passwordHash <- putStr "Password: " >> hFlush stdout >> liftIO (withoutInputEcho getLine) >>= hashPassword
userID <- addUser $ DBUser userID <- addUser $ DBUser
{ dBUserRegistered = time { dBUserRegistered = time
, dBUserPasswordCrypt = passwordHash , dBUserPasswordCrypt = passwordHash