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

Supporting GHC 7.8's unicode quote.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-04-09 15:17:51 +09:00
parent 770644e87d
commit 9cd3d521d4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
elisp/ghc-check.el
View File

@ -231,10 +231,10 @@ nil does not display errors/warnings.
(if (not (bolp)) (insert "\n"))) (if (not (bolp)) (insert "\n")))
(insert (match-string 1) " = undefined\n"))) (insert (match-string 1) " = undefined\n")))
;; GHC 7.8 uses Unicode for single-quotes. ;; GHC 7.8 uses Unicode for single-quotes.
((string-match "Not in scope: type constructor or class `\\([^'\n\0]+\\)'" data) ((string-match "Not in scope: type constructor or class .\\([^\n\0]+\\)." data)
(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: `\\([^'\n\0]+\\)'" data) ((string-match "Not in scope: .\\([^\n\0]+\\)." 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
(y-or-n-p (format "Import module for %s?" sym))) (y-or-n-p (format "Import module for %s?" sym)))