proper message for debugging.
This commit is contained in:
parent
6b63cb7098
commit
2aa47fc449
@ -105,15 +105,15 @@ unloaded modules are loaded")
|
|||||||
|
|
||||||
(defun ghc-load-modules (mods)
|
(defun ghc-load-modules (mods)
|
||||||
(if mods
|
(if mods
|
||||||
(prog2
|
|
||||||
(message "Loading symbols...")
|
|
||||||
(mapcar 'ghc-load-module mods)
|
(mapcar 'ghc-load-module mods)
|
||||||
(message "Loading symbols...done"))
|
|
||||||
(message "No new modules")
|
(message "No new modules")
|
||||||
nil))
|
nil))
|
||||||
|
|
||||||
(defun ghc-load-module (mod)
|
(defun ghc-load-module (mod)
|
||||||
(ghc-sync-process (format "browse %s\n" mod)))
|
(prog2
|
||||||
|
(message "Loading symbols for %s..." mod)
|
||||||
|
(ghc-sync-process (format "browse %s\n" mod))
|
||||||
|
(message "Loading symbols for %s...done" mod)))
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;;;
|
;;;
|
||||||
|
Loading…
Reference in New Issue
Block a user