hacking ghc-flymake-init.

This commit is contained in:
Kazu Yamamoto 2010-03-12 11:55:11 +09:00
parent fd04ebfe11
commit 2f20d1a9ac

View File

@ -13,8 +13,9 @@
ghc-flymake-err-line-patterns)
(defun ghc-flymake-init ()
(let ((after-save-hook nil))
(save-buffer))
(let ((file (file-name-nondirectory (buffer-file-name))))
(flymake-init-create-temp-buffer-copy 'flymake-create-temp-inplace)
(list ghc-module-command (append (ghc-module-command-args)
(list "check" file)))))