From e4f4ef52c0cbcbe7282f102de7359f7550e9657f Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Mon, 21 Apr 2014 11:37:33 +0900 Subject: [PATCH] making use of ghc-run-ghc-mod. --- elisp/ghc-process.el | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/elisp/ghc-process.el b/elisp/ghc-process.el index f16e614..71ce526 100644 --- a/elisp/ghc-process.el +++ b/elisp/ghc-process.el @@ -23,13 +23,7 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun ghc-get-project-root () - (let ((file (buffer-file-name))) - (when file - (with-temp-buffer - (ghc-call-process ghc-module-command nil t nil "root" file) - (goto-char (point-min)) - (when (looking-at "^\\(.*\\)$") - (match-string-no-properties 1)))))) + (ghc-run-ghc-mod '("root"))) (defun ghc-with-process (cmd callback) (unless ghc-process-process-name