Ticket #8076: ticket-8076-use-prompt2-in-set-m-continuations.patch

File ticket-8076-use-prompt2-in-set-m-continuations.patch, 880 bytes (added by hvr, 9 months ago)
  • ghc/InteractiveUI.hs

    From a2f0e854c06c58246fbb0a721d3e23b36bae6055 Mon Sep 17 00:00:00 2001
    From: Herbert Valerio Riedel <hvr@gnu.org>
    Date: Fri, 12 Jul 2013 10:22:43 +0200
    Subject: [PATCH] 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 4bac5ad..7b10b65 100644
    a b checkInputForLayout stmt getStmt = do 
    790790     _other              -> do 
    791791       st1 <- lift getGHCiState 
    792792       let p = prompt st1 
    793        lift $ setGHCiState st1{ prompt = "%s| " } 
     793       lift $ setGHCiState st1{ prompt = prompt2 st1 } 
    794794       mb_stmt <- ghciHandle (\ex -> case fromException ex of 
    795795                            Just UserInterrupt -> return Nothing 
    796796                            _ -> case fromException ex of