bug fix for resolution of package name.

This commit is contained in:
Kazu Yamamoto 2010-07-16 18:59:04 +09:00
parent d9b141e274
commit 0cdccce0ff

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