hacking ghc-flymake-init.

elisp/ghc-flymake.el

@@ -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)))))