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
(call-process "ghc-pkg" nil t nil "find-module" "--simple-output" mod)
(goto-char (point-min))
(when (looking-at "^\\(.+\\)-[0-9]")
(when (looking-at "^\\([^ ]+\\)-[0-9]")
(match-string-no-properties 1))))
(defun ghc-resolve-document-path (pkg)