module name that "where" locates in the next line.
This commit is contained in:
parent
71038ce5d6
commit
b743a8a890
@ -167,7 +167,7 @@
|
||||
(defun ghc-find-module-name ()
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(if (re-search-forward "^module[ ]+\\([^ ]+\\)" nil t)
|
||||
(if (re-search-forward "^module[ ]+\\([^ \n]+\\)" nil t)
|
||||
(match-string-no-properties 1))))
|
||||
|
||||
(provide 'ghc-info)
|
||||
|
Loading…
Reference in New Issue
Block a user