From aa10bd63edea21d6ffcf22fa29f0be2e19a1b591 Mon Sep 17 00:00:00 2001 From: Gracjan Polak Date: Mon, 8 Feb 2016 22:20:50 +0100 Subject: [PATCH] Revert "Stylish haskell after save" --- haskell-mode.el | 3 +-- haskell.el | 7 ++++++- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/haskell-mode.el b/haskell-mode.el index 2b96f49dd..62fabad2a 100644 --- a/haskell-mode.el +++ b/haskell-mode.el @@ -872,8 +872,7 @@ To be added to `flymake-init-create-temp-buffer-copy'." (defun haskell-mode-before-save-handler () "Function that will be called before buffer's saving." - (when haskell-stylish-on-save - (ignore-errors (haskell-mode-stylish-buffer)))) + ) ;; From Bryan O'Sullivan's blog: ;; http://www.serpentine.com/blog/2007/10/09/using-emacs-to-insert-scc-annotations-in-haskell-code/ diff --git a/haskell.el b/haskell.el index 0651d09a3..39d36dd3d 100644 --- a/haskell.el +++ b/haskell.el @@ -380,7 +380,12 @@ If `haskell-process-load-or-reload-prompt' is nil, accept `default'." "Function that will be called after buffer's saving." (when haskell-tags-on-save (ignore-errors (when (and (boundp 'haskell-session) haskell-session) - (haskell-process-generate-tags))))) + (haskell-process-generate-tags)))) + (when haskell-stylish-on-save + (ignore-errors (haskell-mode-stylish-buffer)) + (let ((before-save-hook '()) + (after-save-hook '())) + (basic-save-buffer)))) ;;;###autoload (defun haskell-mode-tag-find (&optional _next-p)