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

6
elisp/ghc-comp.el
View File

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