define promptString for VerbatimMode

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)