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

replacing [Char] with String when inserting inferred type.

Browse Source 
Johannes Krause <cjay>
This commit is contained in:
Kazu Yamamoto 2010-05-12 14:55:01 +09:00
parent cf16c62c3a
commit 2f1ab4e71d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
elisp/ghc-flymake.el
View File

@ -76,7 +76,9 @@
(cond (cond
((string-match "Inferred type: \\([^:]+ :: \\)\\(forall [^.]+\\. \\)?\\([^\0]*\\)" data) ((string-match "Inferred type: \\([^:]+ :: \\)\\(forall [^.]+\\. \\)?\\([^\0]*\\)" data)
(beginning-of-line) (beginning-of-line)
(insert (match-string 1 data) (match-string 3 data) "\n")) (insert (match-string 1 data)
(replace-regexp-in-string "\\[Char\\]" "String" (match-string 3 data))
"\n"))
((string-match "Not in scope: `\\([^']+\\)'" data) ((string-match "Not in scope: `\\([^']+\\)'" data)
(save-match-data (save-match-data
(unless (re-search-forward "^$" nil t) (unless (re-search-forward "^$" nil t)
@ -84,7 +86,6 @@
(insert "\n"))) (insert "\n")))
(insert "\n" (match-string 1 data) " = undefined\n")))))) (insert "\n" (match-string 1 data) " = undefined\n"))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun ghc-flymake-err-get-title (x) (nth 0 x)) (defun ghc-flymake-err-get-title (x) (nth 0 x))