hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

get the latest path.

Browse Source
This commit is contained in:
Kazu Yamamoto 2010-03-11 14:15:28 +09:00
parent 5e7c7aa87d
commit f1a0e079db
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
elisp/ghc-doc.el
View File

@ -28,7 +28,9 @@
(defun ghc-resolve-document-path (pkg) (defun ghc-resolve-document-path (pkg)
(with-temp-buffer (with-temp-buffer
(call-process "ghc-pkg" nil t nil "field" pkg "haddock-html") (call-process "ghc-pkg" nil t nil "field" pkg "haddock-html")
(goto-char (point-min)) (goto-char (point-max))
(forward-line -1)
(beginning-of-line)
(when (looking-at "^haddock-html: \\([^ \n]+\\)$") (when (looking-at "^haddock-html: \\([^ \n]+\\)$")
(match-string-no-properties 1)))) (match-string-no-properties 1))))