diff options
| -rw-r--r-- | ghc/compiler/ghci/InteractiveUI.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs index cf749d2abc..e5a950a05f 100644 --- a/ghc/compiler/ghci/InteractiveUI.hs +++ b/ghc/compiler/ghci/InteractiveUI.hs @@ -1,5 +1,5 @@ ----------------------------------------------------------------------------- --- $Id: InteractiveUI.hs,v 1.83 2001/07/24 04:41:40 ken Exp $ +-- $Id: InteractiveUI.hs,v 1.84 2001/08/09 10:55:53 sewardj Exp $ -- -- GHC Interactive User Interface -- @@ -369,7 +369,7 @@ help :: String -> GHCi () help _ = io (putStr helpText) info :: String -> GHCi () -info "" = do io (putStr "dunno, mate") +info "" = throwDyn (CmdLineError "syntax: `:i <thing-you-want-info-about>'") info s = do let names = words s st <- getGHCiState |