summaryrefslogtreecommitdiff
path: root/ghc
diff options
context:
space:
mode:
Diffstat (limited to 'ghc')
-rw-r--r--ghc/GHCi/UI.hs4
1 files changed, 2 insertions, 2 deletions
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