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

inserting template for type constructor.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-04-23 15:57:13 +09:00
parent b4bb249131
commit b9d4b9b66f
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
elisp/ghc-check.el
View File

@ -240,8 +240,14 @@ nil does not display errors/warnings.
(let ((sym (match-string 1 data))) (let ((sym (match-string 1 data)))
(ghc-ins-mod sym))) (ghc-ins-mod sym)))
((string-match "Not in scope: data constructor .\\([^\n]+\\)." data) ((string-match "Not in scope: data constructor .\\([^\n]+\\)." data)
;; if the type of data constructor, it would be nice.
(let ((sym (match-string 1 data))) (let ((sym (match-string 1 data)))
(ghc-ins-mod sym))) (ghc-ins-mod sym)))
((string-match "\n[ ]+.\\([^ ]+\\). is a data constructor of .\\([^\n]+\\).\n" data)
(let* ((old (match-string 1 data))
(type-const (match-string 2 data))
(new (format "%s(%s)" type-const old)))
(ghc-check-replace old new)))
((string-match "Not in scope: .\\([^\n]+\\)." data) ((string-match "Not in scope: .\\([^\n]+\\)." data)
(let ((sym (match-string 1 data))) (let ((sym (match-string 1 data)))
(if (or (string-match "\\." sym) ;; qualified (if (or (string-match "\\." sym) ;; qualified
@ -258,15 +264,18 @@ nil does not display errors/warnings.
((string-match "Found:\n[ ]+\\([^\t]+\\)\nWhy not:\n[ ]+\\([^\t]+\\)" data) ((string-match "Found:\n[ ]+\\([^\t]+\\)\nWhy not:\n[ ]+\\([^\t]+\\)" data)
(let ((old (match-string 1 data)) (let ((old (match-string 1 data))
(new (match-string 2 data))) (new (match-string 2 data)))
(beginning-of-line) (ghc-check-replace old new)))
(when (search-forward old nil t)
(let ((end (point)))
(search-backward old nil t)
(delete-region (point) end))
(insert new))))
(t (t
(message "Nothing was done")))))) (message "Nothing was done"))))))
(defun ghc-check-replace (old new)
(beginning-of-line)
(when (search-forward old nil t)
(let ((end (point)))
(search-backward old nil t)
(delete-region (point) end))
(insert new)))
(defun ghc-extract-type (str) (defun ghc-extract-type (str)
(with-temp-buffer (with-temp-buffer
(insert str) (insert str)