Supporting GHC 7.8's unicode quote.

This commit is contained in:
Kazu Yamamoto 2014-04-09 15:17:51 +09:00
parent 770644e87d
commit 9cd3d521d4

View File

@ -231,10 +231,10 @@ nil does not display errors/warnings.
(if (not (bolp)) (insert "\n")))
(insert (match-string 1) " = undefined\n")))
;; 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)))
(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)))
(if (or (string-match "\\." sym) ;; qualified
(y-or-n-p (format "Import module for %s?" sym)))