From: Pepe Iborra <mnislaih@gmail.com>
Date: Fri, 5 Jan 2007 17:45:25 +0000 (+0000)
Subject: Improved an error message, giving a more concrete suggestion
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=97783dce3d0e9614f18a5e89eb8ecc76ddb88840

Improved an error message, giving a more concrete suggestion
---

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