branch: elpa/haskell-tng-mode
commit efd809367f2a46636e78f9726da8acff48bc0fcc
Author: Tseen She <ts33n....@gmail.com>
Commit: Tseen She <ts33n....@gmail.com>
silent formatter errors
---
haskell-tng-extra.el | 12 ++++--------
1 file changed, 4 insertions(+), 8 deletions(-)
diff --git a/haskell-tng-extra.el b/haskell-tng-extra.el
index 23b836c..a08c45c 100644
--- a/haskell-tng-extra.el
+++ b/haskell-tng-extra.el
@@ -67,32 +67,28 @@ When in a comment and called with a prefix, the comment
will be completed."
(defun haskell-tng-stylish-haskell ()
"Apply `stylish-haskell' rules."
;; TODO use https://github.com/purcell/reformatter.el
- ;; TODO error buffer should be easy to dismiss
(interactive)
(when (buffer-modified-p)
(save-buffer))
- (unless (= 0 (call-process "stylish-haskell" nil "*stylish-haskell*" nil
"-i" buffer-file-name))
- (pop-to-buffer "*stylish-haskell*" nil t))
- (revert-buffer t t t))
+ (when (= 0 (call-process "stylish-haskell" nil "*stylish-haskell*" nil "-i"
buffer-file-name))
+ (revert-buffer t t t)))
;;;###autoload
(defun haskell-tng-ormolu ()
"Apply `ormolu' rules."
;; TODO use https://github.com/purcell/reformatter.el
- ;; TODO error buffer should be easy to dismiss
;; TODO pass parameters via a buffer local variable
(interactive)
(when (buffer-modified-p)
(save-buffer))
- (unless (= 0 (call-process "ormolu" nil "*ormolu*" nil
+ (when (= 0 (call-process "ormolu" nil "*ormolu*" nil
;; "-p"
"-o" "-XTypeApplications"
"-o" "-XBangPatterns"
"-o" "-XPatternSynonyms"
"-m" "inplace"
buffer-file-name))
- (pop-to-buffer "*ormolu*" nil t))
- (revert-buffer t t t))
+ (revert-buffer t t t)))
;;;###autoload
(defun haskell-tng-stack2cabal ()
