summaryrefslogtreecommitdiffstats
path: root/Main.hs
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2014-07-28 14:14:31 +0200
committertv <tv@shackspace.de>2014-07-28 14:14:31 +0200
commit25b8aa03070758e7f72f37e325f3e6e4b22e685c (patch)
tree67db1679c7e5802de3b27a0df072c7d9dc6efc48 /Main.hs
parentc5d13e52aac14c541d00b04fc143fe25ece7bac6 (diff)
define promptString for VerbatimMode
Diffstat (limited to 'Main.hs')
-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)