From 12e2d2a3e015345d3820206d792f8e2290392ab8 Mon Sep 17 00:00:00 2001
From: Saku Laesvuori <saku@laesvuori.fi>
Date: Thu, 28 Sep 2023 23:01:23 +0300
Subject: [PATCH] Display password prompt in CLI add-user

---
 backend/src/Datarekisteri/CLI.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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