diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-02-01 20:26:42 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-02-02 22:02:45 +0100 |
| commit | 3630677c07768781376242f5c0919a6c9cb5d7fe (patch) | |
| tree | 0836480692fd2bd80c24a2e72d69a90c6bba0905 /main/Main.hs | |
| parent | 0c36f490719f613dc23b6632a4098bd17fb0ab7c (diff) | |
Diffstat (limited to 'main/Main.hs')
| -rw-r--r-- | main/Main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/main/Main.hs b/main/Main.hs index 2d11dba..5fca2d9 100644 --- a/main/Main.hs +++ b/main/Main.hs @@ -54,6 +54,7 @@ import Erebos.Storable import Erebos.Storage import Erebos.Storage.Merge import Erebos.Sync +import Erebos.TextFormat import Erebos.TextFormat.Ansi import State @@ -358,7 +359,7 @@ interactiveLoop st opts = withTerminal commandCompletion $ \term -> do SelectedConversation conv -> return $ T.unpack $ conversationName conv return $ pname ++ "> " Right prompt -> return prompt - lift $ setPrompt term prompt + lift $ setPrompt term $ plainText $ T.pack prompt join $ lift $ getInputLine term $ \case Just input@('/' : _) -> KeepPrompt $ return input Just input -> ErasePrompt $ case reverse input of |