Commit e7de764a authored by Herbert Valerio Riedel's avatar Herbert Valerio Riedel 🕺 Committed by ian@well-typed.com

use prompt2 in `:set +m` mode

parent 9b8b4483
......@@ -780,7 +780,7 @@ checkInputForLayout stmt getStmt = do
_other -> do
st1 <- lift getGHCiState
let p = prompt st1
lift $ setGHCiState st1{ prompt = "%s| " }
lift $ setGHCiState st1{ prompt = prompt2 st1 }
mb_stmt <- ghciHandle (\ex -> case fromException ex of
Just UserInterrupt -> return Nothing
_ -> case fromException ex of
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment