Display password prompt in CLI add-user

2023-09-28 23:01:23 +03:00 · 2023-09-28 23:01:23 +03:00 · 12e2d2a3e0
parent 09a318ae32
commit 12e2d2a3e0
1 changed files with 1 additions and 1 deletions
--- a/backend/src/Datarekisteri/CLI.hs
+++ b/backend/src/Datarekisteri/CLI.hs
@ -32,7 +32,7 @@ main = do
 addUserMain :: AddUserOpts -> CLIM ()
 addUserMain AddUserOpts {..} = do
    time <- currentTime
-    passwordHash <- putStr "Password: " >> liftIO (withoutInputEcho getLine) >>= hashPassword
+    passwordHash <- putStr "Password: " >> hFlush stdout >> liftIO (withoutInputEcho getLine) >>= hashPassword
    userID <- addUser $ DBUser
        { dBUserRegistered = time
        , dBUserPasswordCrypt = passwordHash