From 25b8aa03070758e7f72f37e325f3e6e4b22e685c Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Mon, 28 Jul 2014 14:14:31 +0200
Subject: define promptString for VerbatimMode

---
 Main.hs | 1 +
 1 file changed, 1 insertion(+)

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)
-- 
cgit v1.2.3