From b6e01872b7d55b8c38a37419fc0a3677d438068a Mon Sep 17 00:00:00 2001 From: issue-dispenser Date: Mon, 1 Feb 2016 08:56:02 -0600 Subject: [PATCH] Use condition-case-unless-debug Use it where appropriate. --- haskell-load.el | 2 +- haskell-process.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/haskell-load.el b/haskell-load.el index ec643935b..9de12cb1f 100644 --- a/haskell-load.el +++ b/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))))) diff --git a/haskell-process.el b/haskell-process.el index 5d33e18a5..51eea683d 100644 --- a/haskell-process.el +++ b/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)