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

using ghc-add.

This commit is contained in:
Kazu Yamamoto 2014-04-19 20:09:47 +09:00
parent f9a8361bca
commit 122c8da7b0
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
elisp/ghc-check.el
View File

@ -160,8 +160,8 @@ nil does not display errors/warnings.
errs wrns)
(dolist (msg msgs)
(if (string-match "^Warning" msg)
(setq wrns (cons msg wrns))
(setq errs (cons msg errs))))
(ghc-add wrns msg)
(ghc-add errs msg)))
(ghc-make-file-msgs :file file :msgs (nconc errs wrns))))))
(defun ghc-display-errors ()

2
elisp/ghc-doc.el
View File

@ -70,7 +70,7 @@
(i 0)
acc)
(while (< i len)
(setq acc (cons (format "-%d-" (aref symbol i)) acc))
(ghc-add acc (format "-%d-" (aref symbol i)))
(setq i (1+ i)))
(apply 'concat (nreverse acc))))