Minor correction in ghc-resolve-package
This commit is contained in:
parent
562441deb6
commit
3017ea063e
@ -22,7 +22,7 @@
|
|||||||
(with-temp-buffer
|
(with-temp-buffer
|
||||||
(call-process "ghc-pkg" nil t nil "find-module" "--simple-output" mod)
|
(call-process "ghc-pkg" nil t nil "find-module" "--simple-output" mod)
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(when (re-search-forward "[^ ]+-[0-9]*\\(\\.[0-9]*\\)*$")
|
(when (re-search-forward "[^ ]+-[0-9]*\\(\\.[0-9]+\\)*$")
|
||||||
(match-string-no-properties 0))))
|
(match-string-no-properties 0))))
|
||||||
|
|
||||||
(defun ghc-resolve-document-path (pkg)
|
(defun ghc-resolve-document-path (pkg)
|
||||||
|
Loading…
Reference in New Issue
Block a user