From 2cfcf6078955c5e7c5f613f31e14ab2e1b019518 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Mon, 31 Mar 2014 12:08:17 +0900
Subject: [PATCH] Displaying "-:-" when checking.

---
 elisp/ghc-check.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/elisp/ghc-check.el b/elisp/ghc-check.el
index 469f30b..e881d89 100644
--- a/elisp/ghc-check.el
+++ b/elisp/ghc-check.el
@@ -45,6 +45,8 @@
 (ghc-defstruct hilit-info file line col msg err)
 
 (defun ghc-check-send ()
+  (with-current-buffer ghc-process-original-buffer
+    (setq mode-line-process " -:-"))
   (if ghc-check-command
       (let ((opts (ghc-haskell-list-of-string ghc-hlint-options)))
 	(if opts