diff --git a/backend/src/Datarekisteri/CLI.hs b/backend/src/Datarekisteri/CLI.hs index 361e074..6458d54 100644 --- 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