branch: elpa/haskell-tng-mode
commit e270647d93ba1878a14642f79b403537f512f63a
Author: Tseen She <ts33n....@gmail.com>
Commit: Tseen She <ts33n....@gmail.com>
more robust calls to hsinspect
---
haskell-tng-hsinspect.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/haskell-tng-hsinspect.el b/haskell-tng-hsinspect.el
index f0051e9..55a0727 100644
--- a/haskell-tng-hsinspect.el
+++ b/haskell-tng-hsinspect.el
@@ -63,11 +63,11 @@ t means the process failed.")
(append (cdr haskell-tng-hsinspect)
`("hsinspect" "imports" ,buffer-file-name)
haskell-tng-hsinspect-langexts)))
- (message "hsinspect failed, semantic support disabled")
+ (user-error "`hsinspect' failed. See the *hsinspect* buffer for more
information.")
(setq haskell-tng--hsinspect-imports
(with-current-buffer "*hsinspect*"
(goto-char (point-min))
- (re-search-forward (rx "(") nil t) ;; sometimes there is junk
from the launcher
+ (re-search-forward (rx bol "(") nil t) ;; sometimes there is
junk from the launcher
(goto-char (match-beginning 0))
(read (current-buffer))))))))
