From 575051778533f6ca7fea374eb3ccdcc18ef68908 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 13 Mar 2008 18:29:36 +0000 Subject: [PATCH] parsing tweak for :break --- compiler/ghci/InteractiveUI.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs index 8b1566a..c865943 100644 --- a/compiler/ghci/InteractiveUI.hs +++ b/compiler/ghci/InteractiveUI.hs @@ -2040,7 +2040,7 @@ breakSwitch :: Session -> [String] -> GHCi () breakSwitch _session [] = do io $ putStrLn "The break command requires at least one argument." breakSwitch session (arg1:rest) - | looksLikeModuleName arg1 = do + | looksLikeModuleName arg1 && not (null rest) = do mod <- wantInterpretedModule arg1 breakByModule mod rest | all isDigit arg1 = do -- 1.7.10.4