From 620ee7edc931dc5273dd04880059cc9ec8d41528 Mon Sep 17 00:00:00 2001 From: Matthew Pickering Date: Tue, 28 Jun 2022 18:24:07 +0100 Subject: ghci: Support :set prompt in multi repl This adds supports for various :set commands apart from `:set ` in multi repl, this includes `:set prompt` and so-on. Fixes #21796 --- ghc/GHCi/UI.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'ghc') diff --git a/ghc/GHCi/UI.hs b/ghc/GHCi/UI.hs index 8fac7da93a..38cce4b1e7 100644 --- a/ghc/GHCi/UI.hs +++ b/ghc/GHCi/UI.hs @@ -236,7 +236,7 @@ ghciCommands = map mkCmd [ ("reload!", keepGoingMulti' reloadModuleDefer, noCompletion), ("run", keepGoing runRun, completeFilename), ("script", keepGoing' scriptCmd, completeFilename), - ("set", keepGoing setCmd, completeSetOptions), + ("set", keepGoingMulti setCmd, completeSetOptions), ("seti", keepGoingMulti setiCmd, completeSeti), ("show", keepGoingMulti' showCmd, completeShowOptions), ("showi", keepGoing showiCmd, completeShowiOptions), @@ -2961,7 +2961,7 @@ setCmd str setLocalConfigBehaviour $ dropWhile isSpace rest _ -> case toArgsNoLoc str of Left err -> liftIO (hPutStrLn stderr err) - Right wds -> setOptions wds + Right wds -> () <$ keepGoing' setOptions wds setiCmd :: GhciMonad m => String -> m () setiCmd "" = GHC.getInteractiveDynFlags >>= liftIO . showDynFlags False -- cgit v1.2.1