From 97783dce3d0e9614f18a5e89eb8ecc76ddb88840 Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Fri, 5 Jan 2007 17:45:25 +0000 Subject: [PATCH] Improved an error message, giving a more concrete suggestion --- compiler/ghci/Debugger.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/ghci/Debugger.hs b/compiler/ghci/Debugger.hs index 1608933..1d493e0 100644 --- a/compiler/ghci/Debugger.hs +++ b/compiler/ghci/Debugger.hs @@ -376,10 +376,11 @@ bkptOptions cmd = do bkptOptions' _ _ = throwDyn $ CmdLineError $ "syntax: :breakpoint (list|stop|add|del)" +-- Error messages handleBkptEx :: Module -> Debugger.BkptException -> a handleBkptEx _ NoBkptFound = error "No suitable breakpoint site found" --TODO Automatically add to the next suitable line handleBkptEx _ NotNeeded = error "Nothing to do" - handleBkptEx m NotHandled = error$ "Module " ++ showSDoc (ppr m) ++ " was not loaded under debugging mode. Enable debugging mode and reload it" + handleBkptEx m NotHandled = error$ "Module " ++ showSDoc (ppr m) ++ " was not loaded under debugging mode. Enable debugging mode with -fdebugging (and reload your module)" ------------------------- -- Breakpoint Tables -- 1.7.10.4