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

output-dir.

Browse Source
This commit is contained in:
Kazu Yamamoto
2010-03-12 00:20:02 +09:00
parent 133086e1a8
commit fd04ebfe11
4 changed files with 38 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
elisp/ghc-flymake.el
View File

@@ -13,12 +13,20 @@
ghc-flymake-err-line-patterns)
(defun ghc-flymake-init ()
(let* ((temp-file (flymake-init-create-temp-buffer-copy
'flymake-create-temp-inplace))
(local-file (file-relative-name
temp-file
(file-name-directory buffer-file-name))))
(list "ghc-mod" (append (ghc-module-command-args)
(list "check" local-file)))))
(let ((file (file-name-nondirectory (buffer-file-name))))
(flymake-init-create-temp-buffer-copy 'flymake-create-temp-inplace)
(list ghc-module-command (append (ghc-module-command-args)
(list "check" file)))))
;; ghc --make GHCMod.hs -outputdir dist/flymake -o dist/flymake/GHCMod
;; (defun ghc-flymake-init ()
;; (let* ((temp-file (flymake-init-create-temp-buffer-copy
;; 'flymake-create-temp-inplace))
;; (local-file (file-relative-name
;; temp-file
;; (file-name-directory buffer-file-name))))
;; (list ghc-module-command (append (ghc-module-command-args)
;; (list "check" local-file)))))
(provide 'ghc-flymake)