From 00fb858401afbac6a0b90ba0540a24939cabc5e2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Thu, 5 Feb 2026 22:34:15 +0100
Subject: Explicit toggles to show and hide prompt

---
 main/Main.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'main/Main.hs')

diff --git a/main/Main.hs b/main/Main.hs
index 0ab474d..798e8f3 100644
--- a/main/Main.hs
+++ b/main/Main.hs
@@ -335,6 +335,7 @@ main = do
 
 interactiveLoop :: Storage -> Options -> IO ()
 interactiveLoop st opts = withTerminal commandCompletion $ \term -> do
+    showPrompt term
     erebosHead <- either (fail . showErebosError) return <=< runExceptT . flip runReaderT st $ do
         case optCreateIdentity opts of
             Nothing -> loadLocalStateHead term
@@ -510,6 +511,7 @@ interactiveLoop st opts = withTerminal commandCompletion $ \term -> do
         , csWatchChatrooms = watched
         , csQuit = False
         }
+    hidePrompt term
 
 
 data CommandInput = CommandInput
-- 
cgit v1.2.3