diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2008-03-13 18:29:36 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2008-03-13 18:29:36 +0000 |
| commit | 575051778533f6ca7fea374eb3ccdcc18ef68908 (patch) | |
| tree | 7872a976ebc6894bbc1066f1c4fe30c6404b9b4d | |
| parent | 53a442f10d80cd85b33620a023c4a8749a7c0b20 (diff) | |
| download | haskell-575051778533f6ca7fea374eb3ccdcc18ef68908.tar.gz | |
parsing tweak for :break
| -rw-r--r-- | compiler/ghci/InteractiveUI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs index 8b1566a6a5..c865943df3 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 |