bug fix for resolution of package name.

This commit is contained in:
Kazu Yamamoto 2010-07-16 19:46:15 +09:00
parent 22b0343eea
commit c41e3e5cdf

View File

@ -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 (looking-at "^\\(.+\\)-[0-9]") (when (looking-at "^\\([^ ]+\\)-[0-9]")
(match-string-no-properties 1)))) (match-string-no-properties 1))))
(defun ghc-resolve-document-path (pkg) (defun ghc-resolve-document-path (pkg)