ghc-mod 1.10.18 → 1.11.0
raw patch · 3 files changed
+5/−18 lines, 3 files
Files
- elisp/ghc-flymake.el +3/−16
- elisp/ghc.el +1/−1
- ghc-mod.cabal +1/−1
elisp/ghc-flymake.el view
@@ -20,10 +20,10 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defconst ghc-flymake-allowed-file-name-masks- '("\\.l?hs$" ghc-flymake-init flymake-simple-cleanup ghc-flymake-get-real-file-name))+ '("\\.l?hs$" ghc-flymake-init)) (defconst ghc-flymake-err-line-patterns- '("^\\(.*\\.l?hs\\):\\([0-9]+\\):\\([0-9]+\\):[ ]*\\(.+\\)" 1 2 3 4))+ '("^\\(.*\\):\\([0-9]+\\):\\([0-9]+\\):[ ]*\\(.+\\)" 1 2 3 4)) (add-to-list 'flymake-allowed-file-name-masks ghc-flymake-allowed-file-name-masks)@@ -34,11 +34,7 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun ghc-flymake-init ()- (let ((before-save-hook nil)- (after-save-hook nil))- (save-buffer))- (let ((file (file-name-nondirectory (buffer-file-name))))- (list ghc-module-command (ghc-flymake-command file))))+ (list ghc-module-command (ghc-flymake-command (flymake-init-create-temp-buffer-copy 'flymake-create-temp-inplace)))) (defvar ghc-flymake-command nil) ;; nil: check, t: lint @@ -54,15 +50,6 @@ (if ghc-flymake-command (message "Syntax check with hlint") (message "Syntax check with GHC")))--;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;--(defun ghc-flymake-get-real-file-name (path)- (let ((bufnam (buffer-name))- (filnam (file-name-nondirectory path)))- (if (string= bufnam filnam)- bufnam- path))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
elisp/ghc.el view
@@ -13,7 +13,7 @@ ;;; Code: -(defconst ghc-version "1.10.18")+(defconst ghc-version "1.11.1") ;; (eval-when-compile ;; (require 'haskell-mode))
ghc-mod.cabal view
@@ -1,5 +1,5 @@ Name: ghc-mod-Version: 1.10.18+Version: 1.11.0 Author: Kazu Yamamoto <kazu@iij.ad.jp> Maintainer: Kazu Yamamoto <kazu@iij.ad.jp> License: BSD3