diff --git a/elisp/ghc-flymake.el b/elisp/ghc-flymake.el
index 5a2fa4e..dd76cd8 100644
--- a/elisp/ghc-flymake.el
+++ b/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)))))