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

making use of ghc-run-ghc-mod.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-04-21 11:37:33 +09:00
parent df4dd97e48
commit e4f4ef52c0
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
elisp/ghc-process.el
View File

@ -23,13 +23,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun ghc-get-project-root () (defun ghc-get-project-root ()
(let ((file (buffer-file-name))) (ghc-run-ghc-mod '("root")))
(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))))))
(defun ghc-with-process (cmd callback) (defun ghc-with-process (cmd callback)
(unless ghc-process-process-name (unless ghc-process-process-name