Merge pull request #91 from syohex/fix-show-info
Fix 'ghc-show-info' when cursor is on space
This commit is contained in:
commit
657e458848
@ -14,7 +14,7 @@
|
|||||||
(interactive "P")
|
(interactive "P")
|
||||||
(let* ((modname (or (ghc-find-module-name) "Main"))
|
(let* ((modname (or (ghc-find-module-name) "Main"))
|
||||||
(expr0 (ghc-things-at-point))
|
(expr0 (ghc-things-at-point))
|
||||||
(expr (if ask (ghc-read-expression expr0) expr0))
|
(expr (if (or ask (not expr0)) (ghc-read-expression expr0) expr0))
|
||||||
(file (buffer-file-name))
|
(file (buffer-file-name))
|
||||||
(cmds (list "info" file modname expr)))
|
(cmds (list "info" file modname expr)))
|
||||||
(ghc-display-information cmds nil)))
|
(ghc-display-information cmds nil)))
|
||||||
|
Loading…
Reference in New Issue
Block a user