M-t now replace type hole. (#545).

This commit is contained in:
Kazu Yamamoto 2015-08-19 15:21:59 +09:00
parent bb3a948912
commit c3dff64389

View File

@ -420,6 +420,10 @@ nil do not display errors/warnings.
(let ((old (match-string 1 data))
(new (match-string 2 data)))
(ghc-check-replace old new)))
((string-match "Found hole .\\(_[_[:alnum:]]*\\). with type: \\([^\t\n]+\\)" data)
(let ((old (match-string 1 data))
(new (match-string 2 data)))
(ghc-check-replace old new)))
(t
(setq ret nil)))))))