completion for module vs funcs.
This commit is contained in:
parent
c234e4547f
commit
14014e1a5e
@ -157,9 +157,14 @@ unloaded modules are loaded")
|
|||||||
|
|
||||||
(defun ghc-module-completion-p ()
|
(defun ghc-module-completion-p ()
|
||||||
(or (minibufferp)
|
(or (minibufferp)
|
||||||
|
(let ((end (point)))
|
||||||
|
(save-excursion
|
||||||
|
(beginning-of-line)
|
||||||
|
(and (looking-at "import ")
|
||||||
|
(not (search-forward "(" end t)))))
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(beginning-of-line)
|
(beginning-of-line)
|
||||||
(looking-at "import "))))
|
(looking-at " +module "))))
|
||||||
|
|
||||||
(defun ghc-select-completion-symbol ()
|
(defun ghc-select-completion-symbol ()
|
||||||
(cond
|
(cond
|
||||||
|
Loading…
Reference in New Issue
Block a user