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

magical module name.

Browse Source
This commit is contained in:
Kazu Yamamoto
2014-03-25 15:23:08 +09:00
parent 97b3de7328
commit ce87ab328a
2 changed files with 19 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
elisp/ghc-process.el
View File

@@ -22,7 +22,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun ghc-get-process-name ()
(defun ghc-get-project-root ()
(let ((file (buffer-file-name)))
(with-temp-buffer
(ghc-call-process ghc-module-command nil t nil "root" file)
@@ -32,7 +32,7 @@
(defun ghc-with-process (send callback)
(unless ghc-process-process-name
(setq ghc-process-process-name (ghc-get-process-name)))
(setq ghc-process-process-name (ghc-get-project-root)))
(when ghc-process-process-name
(let* ((cbuf (current-buffer))
(name ghc-process-process-name)