diff options
Diffstat (limited to 'main/Main.hs')
| -rw-r--r-- | main/Main.hs | 2 |
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 |