Merge pull request #1124 from issue-dispenser/debug

Use condition-case-unless-debug

Author: gracjan

haskell-load.el

@@ -123,7 +123,7 @@ actual Emacs buffer of the module being loaded."
         (haskell-mode-message-line (if reload "Reloaded OK." "OK."))
       (haskell-interactive-mode-compile-error session "Compilation failed."))
     (when cont
-      (condition-case e
+      (condition-case-unless-debug e
           (funcall cont ok)
         (error (message "%S" e))
         (quit nil)))))

haskell-process.el

@@ -485,7 +485,7 @@ function and remove this comment.
   "Call the command's complete function."
   (let ((comp-func (haskell-command-complete command)))
     (when comp-func
-      (condition-case e
+      (condition-case-unless-debug e
           (funcall comp-func
                    (haskell-command-state command)
                    response)