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

loading module info if non-nil.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-03-14 14:08:37 +09:00
parent 6ae822f00e
commit ba53968d28
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
elisp/ghc-comp.el
View File

@ -105,14 +105,18 @@ unloaded modules are loaded")
n))) n)))
(defun ghc-load-modules (mods) (defun ghc-load-modules (mods)
(ghc-executable-find ghc-module-command (if (null mods)
(ghc-read-lisp-list (progn
(lambda () (message "No new modules")
(message "Loading names...") nil)
(apply 'ghc-call-process ghc-module-command nil '(t nil) nil (ghc-executable-find ghc-module-command
`(,@(ghc-make-ghc-options) "-l" "browse" ,@mods)) (ghc-read-lisp-list
(message "Loading names...done")) (lambda ()
(length mods)))) (message "Loading names...")
(apply 'ghc-call-process ghc-module-command nil '(t nil) nil
`(,@(ghc-make-ghc-options) "-l" "browse" ,@mods))
(message "Loading names...done"))
(length mods)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ;;;