From 7ba30d5547feea8b3d4585b94b18eb2b25771774 Mon Sep 17 00:00:00 2001 From: Gracjan Polak Date: Fri, 27 Mar 2015 20:53:07 +0100 Subject: [PATCH] Dim stylish-haskell errors. --- haskell-commands.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/haskell-commands.el b/haskell-commands.el index 06bc336eb..d2dcb9638 100644 --- a/haskell-commands.el +++ b/haskell-commands.el @@ -749,15 +749,17 @@ remains unchanged." (buffer-substring-no-properties (point-min) (point-max))))) (if (string= "" stderr-output) (if (string= "" stdout-output) - (funcall errout - "Error: %s produced no output, leaving buffer alone" cmd) + (message "Error: %s produced no output, leaving buffer alone" cmd) (save-restriction (widen) ;; command successful, insert file with replacement to preserve ;; markers. (insert-file-contents tmp-file nil nil nil t))) - ;; non-null stderr, command must have failed - (funcall errout "%s failed: %s" cmd stderr-output)) + (progn + ;; non-null stderr, command must have failed + (message "Error: %s ended with errors, leaving buffer alone" cmd) + ;; use (warning-minimum-level :debug) to see this + (display-warning cmd stderr-output :debug))) (delete-file tmp-file) (delete-file err-file)))