diff options
| author | pepe <mnislaih@gmail.com> | 2008-10-11 11:47:20 +0000 |
|---|---|---|
| committer | pepe <mnislaih@gmail.com> | 2008-10-11 11:47:20 +0000 |
| commit | ae4bf23ecc1552e18623670b12eba6ba81afa711 (patch) | |
| tree | 99d9f1b3de5ef7db343e4b40dfbe815cbb8c4c64 /compiler/ghci | |
| parent | 427868fb21d144f089f93f37426c0585126f281f (diff) | |
| download | haskell-ae4bf23ecc1552e18623670b12eba6ba81afa711.tar.gz | |
Fix a typo which was causing ghci to quit on commands errors
Diffstat (limited to 'compiler/ghci')
| -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 b5d66a18f9..3b5fde9ae3 100644 --- a/compiler/ghci/InteractiveUI.hs +++ b/compiler/ghci/InteractiveUI.hs @@ -666,7 +666,7 @@ runCommands' eh getCmd = do where printErrorAndKeepGoing err = do GHC.printExceptionAndWarnings err - return True + return False noSpace q = q >>= maybe (return Nothing) (\c->case removeSpaces c of |