Explicit toggles to show and hide promptHEADmaster

1 files changed, 2 insertions, 0 deletions

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