defining ghc-executable-find.

2014-03-13 22:21:58 +09:00
parent 0fac26e350
commit 63e59cbebd
4 changed files with 14 additions and 14 deletions
--- a/elisp/ghc-info.el
+++ b/elisp/ghc-info.el
@@ -77,8 +77,7 @@

 (defun ghc-show-type ()
  (interactive)
-  (if (not (executable-find ghc-module-command))
-      (message "%s not found" ghc-module-command)
+  (ghc-executable-find ghc-module-command
    (let ((modname (or (ghc-find-module-name) "Main")))
      (ghc-show-type0 modname))))