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

Param -> Types.

Browse Source
This commit is contained in:
Kazu Yamamoto
2010-04-30 18:36:31 +09:00
parent 17a97aa1dd
commit 5c4ded0630
11 changed files with 36 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
elisp/ghc-comp.el
View File

@@ -66,8 +66,7 @@
(lambda ()
(let ((msg (mapconcat 'identity (cons ghc-module-command args) " ")))
(message "Executing \"%s\"..." msg)
(apply 'call-process ghc-module-command nil t nil
(append '("-l") (ghc-module-command-args) args))
(apply 'call-process ghc-module-command nil t nil (cons "-l" args))
(message "Executing \"%s\"...done" msg))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

3
elisp/ghc-flymake.el
View File

@@ -30,8 +30,7 @@
(let ((after-save-hook nil))
(save-buffer))
(let ((file (file-name-nondirectory (buffer-file-name))))
(list ghc-module-command (append (ghc-module-command-args)
(list "check" file)))))
(list ghc-module-command (list "check" file))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

4
elisp/ghc-func.el
View File

@@ -59,9 +59,5 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar ghc-module-command "ghc-mod")
(defvar ghc-ghc-pkg-command (ghc-which "ghc-pkg"))
(defun ghc-module-command-args ()
(list "-p" ghc-ghc-pkg-command))
(provide 'ghc-func)