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

inserting signature for GHC 7.

Browse Source
This commit is contained in:
Kazu Yamamoto 2011-03-25 13:00:08 +09:00
parent 973f43c93a
commit a4a3be93eb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
elisp/ghc-flymake.el
View File

@ -78,7 +78,7 @@
(with-temp-buffer (with-temp-buffer
(insert str) (insert str)
(goto-char (point-min)) (goto-char (point-min))
(when (re-search-forward "Inferred type: " nil t) (when (re-search-forward "Inferred type: \\|no type signature:\\( \\|\0 +\\)?" nil t)
(delete-region (point-min) (point))) (delete-region (point-min) (point)))
(when (re-search-forward " forall [^.]+\\." nil t) (when (re-search-forward " forall [^.]+\\." nil t)
(replace-match "")) (replace-match ""))
@ -95,7 +95,7 @@
(dolist (data (ghc-flymake-err-list)) (dolist (data (ghc-flymake-err-list))
(save-excursion (save-excursion
(cond (cond
((string-match "Inferred type: " data) ((string-match "Inferred type: \\|no type signature:" data)
(beginning-of-line) (beginning-of-line)
(insert (ghc-extract-type data) "\n")) (insert (ghc-extract-type data) "\n"))
((string-match "lacks an accompanying binding" data) ((string-match "lacks an accompanying binding" data)