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

Remove check includes option of ghc-mod check command. Now, we can pass all ghc options to ghc-mod check.

Browse Source
This commit is contained in:
khibino
2011-11-02 16:23:19 +09:00
parent cbed907038
commit 1fb0d1d4a8
4 changed files with 2 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
elisp/ghc-flymake.el
View File

@@ -17,13 +17,6 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defcustom ghc-flymake-check-includes nil
"list of directories to include when checking file"
:type '(repeat string)
;; :risky nil
:require 'ghc-flymake
:group 'ghc-flymake)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst ghc-error-buffer-name "*GHC Errors*")
@@ -54,9 +47,8 @@
(if ghc-flymake-command
(let ((hopts (ghc-mapconcat (lambda (x) (list "-h" x)) ghc-hlint-options)))
`(,@hopts "lint" ,file))
(let ((gopts (ghc-mapconcat (lambda (x) (list "-g" x)) ghc-ghc-options))
(includes (ghc-mapconcat (lambda (x) (list "-i" x)) ghc-flymake-check-includes)))
`(,@gopts "check" ,@includes ,file))))
(let ((gopts (ghc-mapconcat (lambda (x) (list "-g" x)) ghc-ghc-options)))
`(,@gopts "check" ,file))))
(defun ghc-flymake-toggle-command ()
(interactive)