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

using ghc-add.

Browse Source
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) errs wrns)
(dolist (msg msgs) (dolist (msg msgs)
(if (string-match "^Warning" msg) (if (string-match "^Warning" msg)
(setq wrns (cons msg wrns)) (ghc-add wrns msg)
(setq errs (cons msg errs)))) (ghc-add errs msg)))
(ghc-make-file-msgs :file file :msgs (nconc errs wrns)))))) (ghc-make-file-msgs :file file :msgs (nconc errs wrns))))))
(defun ghc-display-errors () (defun ghc-display-errors ()

2
elisp/ghc-doc.el
View File

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