Minor correction in ghc-resolve-package

This commit is contained in:
Daniel Schoepe 2010-10-27 21:03:28 +02:00
parent 562441deb6
commit 3017ea063e

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 (re-search-forward "[^ ]+-[0-9]*\\(\\.[0-9]*\\)*$")
(when (re-search-forward "[^ ]+-[0-9]*\\(\\.[0-9]+\\)*$")
(match-string-no-properties 0))))
(defun ghc-resolve-document-path (pkg)