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

fixing infloop.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-03-25 22:39:59 +09:00
parent 62df0fa871
commit 649a35ab72
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
elisp/ghc-ins-mod.el
View File

@ -11,6 +11,7 @@
;;; Code: ;;; Code:
(defvar ghc-ins-mod-rendezvous nil) (defvar ghc-ins-mod-rendezvous nil)
(defvar ghc-ins-mod-results nil)
(defun ghc-insert-module () (defun ghc-insert-module ()
(interactive) (interactive)
@ -52,12 +53,13 @@
(defun ghc-function-to-modules (fun) (defun ghc-function-to-modules (fun)
(setq ghc-ins-mod-rendezvous nil) (setq ghc-ins-mod-rendezvous nil)
(setq ghc-ins-mod-results nil)
(ghc-with-process (ghc-with-process
(lambda () (ghc-ins-mod-send fun)) (lambda () (ghc-ins-mod-send fun))
'ghc-ins-mod-callback) 'ghc-ins-mod-callback)
(while (null ghc-ins-mod-rendezvous) (while (null ghc-ins-mod-rendezvous)
(sit-for 0.01)) (sit-for 0.01))
ghc-ins-mod-rendezvous) ghc-ins-mod-results)
(defun ghc-ins-mod-send (fun) (defun ghc-ins-mod-send (fun)
(concat "find " fun "\n")) (concat "find " fun "\n"))
@ -69,8 +71,7 @@
(forward-line) (forward-line)
(setq line (buffer-substring-no-properties beg (1- (point)))) (setq line (buffer-substring-no-properties beg (1- (point))))
(setq lines (cons line lines))) (setq lines (cons line lines)))
(with-current-buffer ghc-process-original-buffer (setq ghc-ins-mod-rendezvous t)
(setq ghc-ins-mod-rendezvous (setq ghc-ins-mod-results (nreverse (cdr lines))))) ;; removing "OK"
(nreverse (cdr lines)))))) ;; removing "OK"
(provide 'ghc-ins-mod) (provide 'ghc-ins-mod)