use prompt2 in `:set +m` mode

e7de764a · Herbert Valerio Riedel · ian@well-typed.com · 9b8b4483 · e7de764a
Commit e7de764a authored Jul 12, 2013 by Herbert Valerio Riedel 🕺 Committed by ian@well-typed.com Jul 21, 2013
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

ghc/InteractiveUI.hs ghc/InteractiveUI.hs +1 -1

No files found.
--- a/ghc/InteractiveUI.hs
+++ b/ghc/InteractiveUI.hs
@@ -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