[commit: ghc] master: use prompt2 in `:set +m` mode (e7de764)

[Ian Lynagh]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/e7de764a76f0b428daf45865b0658faeb60326b2

>---------------------------------------------------------------

commit e7de764a76f0b428daf45865b0658faeb60326b2
Author: Herbert Valerio Riedel <hvr at gnu.org>
Date:   Fri Jul 12 10:22:43 2013 +0200

    use prompt2 in `:set +m` mode

>---------------------------------------------------------------

 ghc/InteractiveUI.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs
index b754cfa..dbc0c05 100644
--- 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