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)))
(defun ghc-load-modules (mods)
(ghc-executable-find ghc-module-command
(ghc-read-lisp-list
(lambda ()
(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))))
(if (null mods)
(progn
(message "No new modules")
nil)
(ghc-executable-find ghc-module-command
(ghc-read-lisp-list
(lambda ()
(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)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;