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

nil guard.

Browse Source
This commit is contained in:
Kazu Yamamoto 2012-02-13 13:48:41 +09:00
parent c2b41f8ad7
commit 034bb89579
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
elisp/ghc-info.el
View File

@ -87,8 +87,10 @@
(defun ghc-show-type0 (modname) (defun ghc-show-type0 (modname)
(let* ((buf (current-buffer)) (let* ((buf (current-buffer))
(tinfos (ghc-type-get-tinfos modname)) (tinfos (ghc-type-get-tinfos modname)))
(tinfo (nth (ghc-type-get-ix) tinfos)) (if (null tinfos)
(message "Cannot guess type")
(let* ((tinfo (nth (ghc-type-get-ix) tinfos))
(type (ghc-tinfo-get-info tinfo)) (type (ghc-tinfo-get-info tinfo))
(beg-line (ghc-tinfo-get-beg-line tinfo)) (beg-line (ghc-tinfo-get-beg-line tinfo))
(beg-column (ghc-tinfo-get-beg-column tinfo)) (beg-column (ghc-tinfo-get-beg-column tinfo))
@ -97,7 +99,7 @@
(left (ghc-get-pos buf beg-line beg-column)) (left (ghc-get-pos buf beg-line beg-column))
(right (ghc-get-pos buf end-line end-column))) (right (ghc-get-pos buf end-line end-column)))
(move-overlay ghc-type-overlay (- left 1) (- right 1) buf) (move-overlay ghc-type-overlay (- left 1) (- right 1) buf)
(message type))) (message type)))))
(defun ghc-type-get-tinfos (modname) (defun ghc-type-get-tinfos (modname)
(if (= (ghc-type-get-point) (point)) (if (= (ghc-type-get-point) (point))