hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Displaying "-:-" when checking.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-03-31 12:08:17 +09:00
parent 2dca76d0a1
commit 2cfcf60789
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
elisp/ghc-check.el
View File

@ -45,6 +45,8 @@
(ghc-defstruct hilit-info file line col msg err) (ghc-defstruct hilit-info file line col msg err)
(defun ghc-check-send () (defun ghc-check-send ()
(with-current-buffer ghc-process-original-buffer
(setq mode-line-process " -:-"))
(if ghc-check-command (if ghc-check-command
(let ((opts (ghc-haskell-list-of-string ghc-hlint-options))) (let ((opts (ghc-haskell-list-of-string ghc-hlint-options)))
(if opts (if opts