summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Main.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/Main.hs b/Main.hs
index 8611342..43ff393 100644
--- a/Main.hs
+++ b/Main.hs
@@ -322,6 +322,7 @@ renderInputLine m (lhs, rhs) = do
let promptString = case m of
NormalMode -> "\x1b[33;1m@\x1b[m "
InsertMode -> "> "
+ VerbatimMode -> "\x1b[34;1m^\x1b[m "
putStr $ promptString ++ pp lhs ++ pp rhs
moveCursorLeft (length $ ppVis rhs)